Parent Directory
|
Revision Log
|
Revision Graph
|
Patch
revision 1.1 by cnh, Wed Apr 22 19:15:30 1998 UTC | revision 1.3 by cnh, Thu May 21 18:25:49 1998 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | C $Id$ | C $Header$ |
2 | ||
3 | #include "CPP_EEOPTIONS.h" | #include "CPP_EEOPTIONS.h" |
4 | ||
# | 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 |