/[MITgcm]/MITgcm/model/src/ini_cg3d.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_cg3d.F

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

revision 1.10 by jmc, Thu Mar 8 20:45:53 2001 UTC revision 1.11 by adcroft, Fri Jun 29 16:08:52 2001 UTC
# Line 306  C--   Set default values for initial gue Line 306  C--   Set default values for initial gue
306             DO I=1-OLx,sNx+OLx             DO I=1-OLx,sNx+OLx
307              cg3d_x(I,J,K,bi,bj) = 0. _d 0              cg3d_x(I,J,K,bi,bj) = 0. _d 0
308              cg3d_b(I,J,K,bi,bj) = 0. _d 0              cg3d_b(I,J,K,bi,bj) = 0. _d 0
 #ifdef INCLUDE_CD_CODE  
             cg3d_xNM1(I,J,K,bi,bj) = 0. _d 0  
 #endif  
309             ENDDO             ENDDO
310            ENDDO            ENDDO
311           ENDDO           ENDDO
# Line 317  C--   Set default values for initial gue Line 314  C--   Set default values for initial gue
314  C--    Update overlap regions  C--    Update overlap regions
315         _EXCH_XYZ_R8(cg3d_x, myThid)         _EXCH_XYZ_R8(cg3d_x, myThid)
316         _EXCH_XYZ_R8(cg3d_b, myThid)         _EXCH_XYZ_R8(cg3d_b, myThid)
 #ifdef INCLUDE_CD_CODE  
        _EXCH_XYZ_R8(cg3d_xNM1, myThid)  
 #endif  
317        ENDIF        ENDIF
318    
319  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22