39 |
#endif |
#endif |
40 |
IF (nonHydrostatic) CALL INI_PNH( myThid ) |
IF (nonHydrostatic) CALL INI_PNH( myThid ) |
41 |
ELSEIF ( .NOT.useOffLine ) THEN |
ELSEIF ( .NOT.useOffLine ) THEN |
42 |
c IF ( nIter0 .EQ. 0 ) THEN |
CALL READ_PICKUP( nIter0, myThid ) |
|
c nIter0 = INT(startTime/deltaTClock ) |
|
|
c ENDIF |
|
|
CALL READ_CHECKPOINT( nIter0, myThid ) |
|
43 |
|
|
44 |
CEH3 IF (pickup_write_immed) THEN |
CEH3 IF (pickup_write_immed) THEN |
45 |
CEH3 CALL WRITE_CHECKPOINT( |
CEH3 CALL WRITE_CHECKPOINT( |
46 |
CEH3 & .TRUE., myCurrentTime, myCurrentIter, myThid) |
CEH3 & .TRUE., myCurrentTime, myCurrentIter, myThid) |
47 |
CEH3 ENDIF |
CEH3 ENDIF |
48 |
|
|