RPN_COMM

(RPN_COMM_globalsum)


SUBROUTINE RPN_COMM_globalsum (real4array,minx,maxx,miny,maxy,nk,ni,nj,njlmax,gnj, sum)

ARGUMENTS

real4array local array REAL*4 ONLY I
minx,maxx, miny, maxy, nk Total dimensions of real4array integer I
ni,nj Size of the local problem integer I
njlmax max of nj on all tiles integer I
sum Global sum of the field REAL*4 O

Dimensions of local array: real4array(minx:maxx,miny:maxy,nk)
Dimensions of the local grid: g(1:ni,1:nj,1:nk)


DESCRIPTION

This subroutine computes the global REAL*4 sum of a REAL*4 field and gives the same answer regardless of the PE distribution. This algorithm is highly inefficient and should be use for debugging purposes only.


EXEMPLE

call rpn_comm_globalsum(tableau,minx,maxx,miny,maxy,nk,ni,nj,njlmax,sum) 

SEE ALSO

RPN_COMM_* 

Return to RPN Libraries home page