/[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.3 by jmc, Tue Apr 28 18:06:15 2009 UTC
# Line 54  C     Read an initial state Line 54  C     Read an initial state
54         _END_MASTER(myThid)         _END_MASTER(myThid)
55        ENDIF        ENDIF
56  C  C
57        _EXCH_XY_R8(etaN, myThid)        _EXCH_XY_RL(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)
# Line 68  C--   By default, initialize etaNm1 with Line 68  C--   By default, initialize etaNm1 with
68         ENDDO         ENDDO
69        ENDDO        ENDDO
70    
71  C     _EXCH_XY_R8(etaNm1, myThid)  C     _EXCH_XY_RL(etaNm1, myThid)
72  #endif  #endif
73    
74        RETURN        RETURN

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.22