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

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

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

revision 1.11 by cnh, Thu May 28 03:34:52 1998 UTC revision 1.12 by cnh, Mon Jun 8 21:43:01 1998 UTC
# Line 17  C     === Global variables === Line 17  C     === Global variables ===
17  #include "EEPARAMS.h"  #include "EEPARAMS.h"
18  #include "PARAMS.h"  #include "PARAMS.h"
19  #include "GRID.h"  #include "GRID.h"
20    #include "DYNVARS.h"
21  #include "CG2D.h"  #include "CG2D.h"
22    
23  C     === Routine arguments ===  C     === Routine arguments ===
# Line 184  C--   Set default values for initial gue Line 185  C--   Set default values for initial gue
185            DO I=1,sNx            DO I=1,sNx
186             cg2d_x(I,J,bi,bj) = 0. _d 0             cg2d_x(I,J,bi,bj) = 0. _d 0
187             cg2d_b(I,J,bi,bj) = 0. _d 0             cg2d_b(I,J,bi,bj) = 0. _d 0
188    #ifdef ALLOW_CD
189               cg2d_xNM1(I,J,bi,bj) = 0. _d 0
190    #endif
191            ENDDO            ENDDO
192           ENDDO           ENDDO
193          ENDDO          ENDDO
# Line 191  C--   Set default values for initial gue Line 195  C--   Set default values for initial gue
195  C--    Update overlap regions  C--    Update overlap regions
196         _EXCH_XY_R8(cg2d_x, myThid)         _EXCH_XY_R8(cg2d_x, myThid)
197         _EXCH_XY_R8(cg2d_b, myThid)         _EXCH_XY_R8(cg2d_b, myThid)
198    #ifdef ALLOW_CD
199           _EXCH_XY_R8(cg2d_xNM1, myThid)
200    #endif
201        ENDIF        ENDIF
202    
203        RETURN        RETURN
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22