/[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.20 by cnh, Wed Oct 28 03:11:37 1998 UTC revision 1.21 by cnh, Fri Nov 6 22:44:46 1998 UTC
# Line 193  C--   Set default values for initial gue Line 193  C--   Set default values for initial gue
193            DO I=1,sNx            DO I=1,sNx
194             cg2d_x(I,J,bi,bj) = 0. _d 0             cg2d_x(I,J,bi,bj) = 0. _d 0
195             cg2d_b(I,J,bi,bj) = 0. _d 0             cg2d_b(I,J,bi,bj) = 0. _d 0
196  #ifdef ALLOW_CD  #ifdef INCLUDE_CD_CODE
197             cg2d_xNM1(I,J,bi,bj) = 0. _d 0             cg2d_xNM1(I,J,bi,bj) = 0. _d 0
198  #endif  #endif
199            ENDDO            ENDDO
# Line 203  C--   Set default values for initial gue Line 203  C--   Set default values for initial gue
203  C--    Update overlap regions  C--    Update overlap regions
204         _EXCH_XY_R8(cg2d_x, myThid)         _EXCH_XY_R8(cg2d_x, myThid)
205         _EXCH_XY_R8(cg2d_b, myThid)         _EXCH_XY_R8(cg2d_b, myThid)
206  #ifdef ALLOW_CD  #ifdef INCLUDE_CD_CODE
207         _EXCH_XY_R8(cg2d_xNM1, myThid)         _EXCH_XY_R8(cg2d_xNM1, myThid)
208  #endif  #endif
209        ENDIF        ENDIF
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22