/[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.2 by edhill, Tue Oct 28 22:58:01 2003 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 ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
60  C--   By default, initialize etaNm1 with etaN :  C--   By default, initialize etaNm1 with etaN :
# 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.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22