RPN_COMM |
(RPN_COMM_globalsum) |
SUBROUTINE RPN_COMM_globalsum (real4array,minx,maxx,miny,maxy,nk,ni,nj,njlmax,gnj, sum)
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)
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.