/[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.1 by jmc, Fri Jul 1 18:18:31 2011 UTC revision 1.3 by jmc, Thu Sep 6 15:25:01 2012 UTC
# Line 36  C     == Global data == Line 36  C     == Global data ==
36  #include "SIZE.h"  #include "SIZE.h"
37  #include "EEPARAMS.h"  #include "EEPARAMS.h"
38  #include "EESUPPORT.h"  #include "EESUPPORT.h"
39  c#include "CUMULSUM.h"  #include "CUMULSUM.h"
       COMMON  / CUMULSUM_R8 /  shareBufCS1_R8, shareBufCS2_R8  
       Real*8  shareBufCS1_R8  (nSx,nSy)  
       Real*8  shareBufCS2_R8(2,nSx,nSy)  
40    
41  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
42  C     == Routine arguments ==  C     == Routine arguments ==
# Line 70  C         all 4 needs to have the same l Line 67  C         all 4 needs to have the same l
67        Real*8  loc2Buf(2,nSx,nSy)        Real*8  loc2Buf(2,nSx,nSy)
68        Real*8  globalBuf(3,nSx*nPx,nSy*nPy)        Real*8  globalBuf(3,nSx*nPx,nSy*nPy)
69  #endif /* ALLOW_USE_MPI */  #endif /* ALLOW_USE_MPI */
 #else  
       CHARACTER*(MAX_LEN_MBUF) msgBuf  
70  #endif /* ALLOW_EXCH2 */  #endif /* ALLOW_EXCH2 */
71  CEOP  CEOP
72    
73  #ifdef ALLOW_EXCH2  #ifdef ALLOW_EXCH2
74  c     CALL EXCH2_CUMULSUM_Z_TILE_RL(        CALL W2_CUMULSUM_Z_TILE_RL(
75  c    O                       psiZ, psiLoc,       O                       psiZ, psiLoc,
76  c    I                       dPsiX, dPsiY, myThid )       I                       dPsiX, dPsiY, myThid )
       WRITE(msgBuf,'(A)')  
      &          'CUMULSUM_Z_TILE_RL: missing call to EXCH2 S/R'  
       CALL PRINT_ERROR( msgBuf, 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 100  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 251  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.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22