Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by cnh, Sun Feb 4 14:38:47 2001 UTC | revision 1.8 by jmc, Mon Mar 12 20:41:02 2001 UTC | |
---|---|---|
# | Line 33 C-- Set model variables to initial/res | Line 33 C-- Set model variables to initial/res |
33 | CALL INI_THETA( myThid ) | CALL INI_THETA( myThid ) |
34 | CALL INI_SALT( myThid ) | CALL INI_SALT( myThid ) |
35 | CALL INI_PSURF( myThid ) | CALL INI_PSURF( myThid ) |
36 | #ifdef ALLOW_NONHYDROSTATIC | |
37 | IF ( nonHydrostatic ) THEN | |
38 | CALL INI_GW( myThid ) | |
39 | ENDIF | |
40 | #endif | |
41 | ELSE | ELSE |
42 | IF ( nIter0 .EQ. 0 ) THEN | IF ( nIter0 .EQ. 0 ) THEN |
43 | nIter0 = INT(startTime/deltaTClock ) | nIter0 = INT(startTime/deltaTClock ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |