Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by cnh, Fri Apr 24 02:05:41 1998 UTC | revision 1.3 by cnh, Thu May 21 18:25:49 1998 UTC | |
---|---|---|
# | Line 31 C-- Set model variables to initial/res | Line 31 C-- Set model variables to initial/res |
31 | CALL INI_THETA( myThid ) | CALL INI_THETA( myThid ) |
32 | CALL INI_SALT( myThid ) | CALL INI_SALT( myThid ) |
33 | ELSE | ELSE |
34 | IF ( nIter0 .EQ. 0 ) THEN | |
35 | nIter0 = INT(startTime/deltaTClock ) | |
36 | ENDIF | |
37 | CALL READ_CHECKPOINT( nIter0, myThid ) | |
38 | ENDIF | ENDIF |
39 | ||
40 | RETURN | RETURN |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |