/[MITgcm]/MITgcm/model/src/ini_fields.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_fields.F

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

revision 1.12 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.14 by mlosch, Wed Sep 18 16:38:02 2002 UTC
# Line 38  C--   Set model variables to initial/res Line 38  C--   Set model variables to initial/res
38         CALL INI_THETA( myThid )         CALL INI_THETA( myThid )
39         CALL INI_SALT( myThid )         CALL INI_SALT( myThid )
40         CALL INI_PSURF( myThid )         CALL INI_PSURF( myThid )
41           CALL INI_PRESSURE( myThid )
42    #ifdef INCLUDE_EP_FORCING_CODE
43           CALL INI_EP( myThid )
44    #endif
45         IF (nonHydrostatic) CALL INI_PNH( myThid )         IF (nonHydrostatic) CALL INI_PNH( myThid )
46        ELSE        ELSE
47         IF ( nIter0 .EQ. 0 ) THEN         IF ( nIter0 .EQ. 0 ) THEN
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22