/[MITgcm]/MITgcm/verification/solid-body.cs-32x32x1/code/ini_psurf.F
ViewVC logotype

Diff of /MITgcm/verification/solid-body.cs-32x32x1/code/ini_psurf.F

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

revision 1.1 by adcroft, Tue Jul 31 18:30:55 2001 UTC revision 1.2 by edhill, Tue Oct 28 22:58:01 2003 UTC
# Line 56  C     Read an initial state Line 56  C     Read an initial state
56  C  C
57        _EXCH_XY_R8(etaN, myThid)        _EXCH_XY_R8(etaN, myThid)
58    
59  #ifdef INCLUDE_CD_CODE  #ifdef ALLOW_CD_CODE
60  C--   By default, initialize etaNm1 with etaN :  C--   By default, initialize etaNm1 with etaN :
61        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
62         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22