Symbol Description Uses
sumPhi Result of sum. 54



File Line number Procedure Code
./model/src/cg2d_sr.F 341 CG2D_SR
         sumPhi(1,bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg2d_sr.F 342 CG2D_SR
         sumPhi(2,bi,bj) = deltaTile(bi,bj)
./model/src/cg2d_sr.F 343 CG2D_SR
         sumPhi(3,bi,bj) = errTile(bi,bj)
./model/src/cg2d_sr.F 349 CG2D_SR
       CALL GLOBAL_VEC_SUM_R8(3,3,sumPhi,myThid)
./model/src/cg2d_sr.F 351 CG2D_SR
       eta_qrN = sumPhi(1,1,1)
./model/src/cg2d_sr.F 352 CG2D_SR
       delta   = sumPhi(2,1,1)
./model/src/cg2d_sr.F 353 CG2D_SR
       err     = sumPhi(3,1,1)
./verification/OpenAD/code_oad/externalDummies.F 65 GLOBAL_SUM_R8
      Real*8 sumPhi
./verification/OpenAD/code_oad/externalDummies.F 68 GLOBAL_SUM_R8
      sumPhi=2*sumPhi
./eesupp/src/global_sum.F 106 GLOBAL_SUM_R8
     U                       sumPhi,
./eesupp/src/global_sum.F 136 GLOBAL_SUM_R8
      Real*8 sumPhi
./eesupp/src/global_sum.F 151 GLOBAL_SUM_R8
      phiGSR8(1,myThid) = sumPhi
./eesupp/src/global_sum.F 167 GLOBAL_SUM_R8
       sumPhi = tmp
./eesupp/src/global_sum.F 172 GLOBAL_SUM_R8
        CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM,
./eesupp/src/global_sum.F 179 GLOBAL_SUM_R8
       phiGSR8(1,0) = sumPhi
./eesupp/src/global_sum.F 191 GLOBAL_SUM_R8
      sumPhi = phiGSR8(1,0)
./eesupp/src/global_sum.F 19 GLOBAL_SUM_R4
     U                       sumPhi,
./eesupp/src/global_sum.F 201 GLOBAL_SUM_INT
     U                       sumPhi,
./eesupp/src/global_sum.F 231 GLOBAL_SUM_INT
      INTEGER sumPhi
./eesupp/src/global_sum.F 246 GLOBAL_SUM_INT
      phiGSI(1,myThid) = sumPhi
./eesupp/src/global_sum.F 257 GLOBAL_SUM_INT
       sumPhi = tmp
./eesupp/src/global_sum.F 262 GLOBAL_SUM_INT
        CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_INTEGER,MPI_SUM,
./eesupp/src/global_sum.F 269 GLOBAL_SUM_INT
       phiGSI(1,0) = sumPhi
./eesupp/src/global_sum.F 276 GLOBAL_SUM_INT
      sumPhi = phiGSI(1,0)
./eesupp/src/global_sum.F 49 GLOBAL_SUM_R4
      Real*4 sumPhi
./eesupp/src/global_sum.F 64 GLOBAL_SUM_R4
      phiGSR4(1,myThid) = sumPhi
./eesupp/src/global_sum.F 75 GLOBAL_SUM_R4
       sumPhi = tmp
./eesupp/src/global_sum.F 80 GLOBAL_SUM_R4
        CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_REAL,MPI_SUM,
./eesupp/src/global_sum.F 87 GLOBAL_SUM_R4
       phiGSR4(1,0) = sumPhi
./eesupp/src/global_sum.F 94 GLOBAL_SUM_R4
      sumPhi = phiGSR4(1,0)
./eesupp/src/global_sum_singlecpu.F 145 GLOBAL_SUM_SINGLECPU_RL
      sumPhi = phiGSR8(1,0)
./eesupp/src/global_sum_singlecpu.F 20 GLOBAL_SUM_SINGLECPU_RL
     O                       sumPhi,
./eesupp/src/global_sum_singlecpu.F 53 GLOBAL_SUM_SINGLECPU_RL
      _RL     sumPhi
./eesupp/src/global_sum_tile.F 194 GLOBAL_SUM_TILE_RL
      sumPhi = phiGSR8(1,0)
./eesupp/src/global_sum_tile.F 19 GLOBAL_SUM_TILE_RL
     O                       sumPhi,
./eesupp/src/global_sum_tile.F 46 GLOBAL_SUM_TILE_RL
      _RL     sumPhi
./eesupp/src/global_vec_sum.F 105 GLOBAL_VEC_SUM_R8
     U     sumPhi,
./eesupp/src/global_vec_sum.F 127 GLOBAL_VEC_SUM_R8
      Real*8 sumPhi(ndim,nSx,nSy)
./eesupp/src/global_vec_sum.F 150 GLOBAL_VEC_SUM_R8
            tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) 
./eesupp/src/global_vec_sum.F 175 GLOBAL_VEC_SUM_R8
        sumPhi( i, 1,1 ) = tmp2(i)
./eesupp/src/global_vec_sum.F 191 GLOBAL_VEC_SUM_INT
     U     sumPhi,
./eesupp/src/global_vec_sum.F 19 GLOBAL_VEC_SUM_R4
     U     sumPhi,
./eesupp/src/global_vec_sum.F 213 GLOBAL_VEC_SUM_INT
      INTEGER sumPhi(ndim,nSx,nSy)
./eesupp/src/global_vec_sum.F 237 GLOBAL_VEC_SUM_INT
            tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) 
./eesupp/src/global_vec_sum.F 262 GLOBAL_VEC_SUM_INT
        sumPhi( i, 1,1 ) = tmp2(i)
./eesupp/src/global_vec_sum.F 41 GLOBAL_VEC_SUM_R4
      Real*4 sumPhi(ndim,nSx,nSy)
./eesupp/src/global_vec_sum.F 64 GLOBAL_VEC_SUM_R4
            tmp1(i) = tmp1(i) + sumPhi( i, bi,bj ) 
./eesupp/src/global_vec_sum.F 89 GLOBAL_VEC_SUM_R4
        sumPhi( i, 1,1 ) = tmp2(i)
./eesupp/src/gsum.F 146 GSUM_R8
        CALL MPI_ALLREDUCE(tmp,sumPhi,1,MPI_DOUBLE_PRECISION,MPI_SUM,
./eesupp/src/gsum.F 148 GSUM_R8
        answer = sumPhi
./eesupp/src/gsum.F 86 GSUM_R8
      Real*8  tmp, sumPhi
./model/inc/CG2D.h 80 NO PROCEDURE
     & cg2d_y,cg2d_v,sumPhi
./model/inc/CG2D.h 83 NO PROCEDURE
      _RL  sumPhi(3,nSx,nSy)