/[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.47 by jmc, Sat Jul 11 22:00:40 2009 UTC revision 1.48 by mlosch, Mon Nov 23 16:15:54 2009 UTC
# Line 74  C     but safer when EXCH do not fill al Line 74  C     but safer when EXCH do not fill al
74  #ifdef ALLOW_CG2D_NSA  #ifdef ALLOW_CG2D_NSA
75            cg2d_z(I,J,bi,bj) = 0. _d 0            cg2d_z(I,J,bi,bj) = 0. _d 0
76  #endif /* ALLOW_CG2D_NSA */  #endif /* ALLOW_CG2D_NSA */
77    #ifdef ALLOW_SRCG
78              cg2d_y(I,J,bi,bj) = 0. _d 0
79              cg2d_v(I,J,bi,bj) = 0. _d 0
80    #endif /*  ALLOW_SRCG */
81           ENDDO           ENDDO
82          ENDDO          ENDDO
83         ENDDO         ENDDO
Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48
  ViewVC Help
Powered by ViewVC 1.1.22