/[MITgcm]/MITgcm/eesupp/src/cumulsum_z_tile.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/cumulsum_z_tile.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jmc, Sat Jul 9 22:13:44 2011 UTC revision 1.3 by jmc, Thu Sep 6 15:25:01 2012 UTC
# Line 74  CEOP Line 74  CEOP
74        CALL W2_CUMULSUM_Z_TILE_RL(        CALL W2_CUMULSUM_Z_TILE_RL(
75       O                       psiZ, psiLoc,       O                       psiZ, psiLoc,
76       I                       dPsiX, dPsiY, myThid )       I                       dPsiX, dPsiY, myThid )
       RETURN  
 #else /* ALLOW_EXCH2 */  
77    
78    #else /* ALLOW_EXCH2 */
79  C--   write input into shared-buffer array  C--   write input into shared-buffer array
80        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
81         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
# Line 92  C--   Master thread cannot start until e Line 91  C--   Master thread cannot start until e
91        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
92    
93  #ifdef ALLOW_USE_MPI  #ifdef ALLOW_USE_MPI
 #ifdef ALWAYS_USE_MPI  
       IF ( .TRUE. ) THEN  
 #else  
94        IF ( usingMPI ) THEN        IF ( usingMPI ) THEN
 #endif  
95    
96          lbuf1 = nSx*nSy          lbuf1 = nSx*nSy
97          lbuf2 = 2*lbuf1          lbuf2 = 2*lbuf1
# Line 243  C--   set result for every threads Line 238  C--   set result for every threads
238         ENDDO         ENDDO
239        ENDDO        ENDDO
240    
       RETURN  
241  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
242          RETURN
243        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22