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 ) |
44 |
|
#ifdef ALLOW_CD_CODE |
45 |
|
IF (useCDscheme) |
46 |
|
& CALL CD_CODE_INI_VARS( myThid ) |
47 |
|
#endif |
48 |
#ifdef INCLUDE_EP_FORCING_CODE |
#ifdef INCLUDE_EP_FORCING_CODE |
49 |
CALL INI_EP( myThid ) |
CALL INI_EP( myThid ) |
50 |
#endif |
#endif |
54 |
nIter0 = INT(startTime/deltaTClock ) |
nIter0 = INT(startTime/deltaTClock ) |
55 |
ENDIF |
ENDIF |
56 |
CALL READ_CHECKPOINT( nIter0, myThid ) |
CALL READ_CHECKPOINT( nIter0, myThid ) |
|
ENDIF |
|
|
|
|
57 |
#ifdef ALLOW_CD_CODE |
#ifdef ALLOW_CD_CODE |
58 |
IF (useCDscheme) CALL CD_CODE_INIT_VARS( nIter0, myThid ) |
IF (useCDscheme) |
59 |
|
& CALL CD_CODE_READ_CHECKPOINT( nIter0, myThid ) |
60 |
#endif |
#endif |
61 |
|
ENDIF |
62 |
|
|
63 |
RETURN |
RETURN |
64 |
END |
END |