/[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.2 by jmc, Sat Jul 9 22:13:44 2011 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 )  
77        RETURN        RETURN
78  #else /* ALLOW_EXCH2 */  #else /* ALLOW_EXCH2 */
79    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22