41 |
CALL INI_SALT( myThid ) |
CALL INI_SALT( myThid ) |
42 |
CALL INI_PSURF( myThid ) |
CALL INI_PSURF( myThid ) |
43 |
CALL INI_PRESSURE( myThid ) |
CALL INI_PRESSURE( myThid ) |
|
#ifdef ALLOW_CD_CODE |
|
|
IF (useCDscheme) |
|
|
& CALL CD_CODE_INI_VARS( myThid ) |
|
|
#endif |
|
44 |
#ifdef INCLUDE_EP_FORCING_CODE |
#ifdef INCLUDE_EP_FORCING_CODE |
45 |
CALL INI_EP( myThid ) |
CALL INI_EP( myThid ) |
46 |
#endif |
#endif |
50 |
nIter0 = INT(startTime/deltaTClock ) |
nIter0 = INT(startTime/deltaTClock ) |
51 |
ENDIF |
ENDIF |
52 |
CALL READ_CHECKPOINT( nIter0, myThid ) |
CALL READ_CHECKPOINT( nIter0, myThid ) |
|
#ifdef ALLOW_CD_CODE |
|
|
IF (useCDscheme) |
|
|
& CALL CD_CODE_READ_CHECKPOINT( nIter0, myThid ) |
|
|
#endif |
|
53 |
ENDIF |
ENDIF |
54 |
|
|
55 |
RETURN |
RETURN |