27 |
CEOP |
CEOP |
28 |
|
|
29 |
C Set model variables to initial/restart conditions |
C Set model variables to initial/restart conditions |
30 |
IF ( startTime .EQ. 0. .AND. nIter0 .EQ. 0 |
IF ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
31 |
& .AND. pickupSuff .EQ. ' ' ) THEN |
& .AND. pickupSuff .EQ. ' ' ) THEN |
32 |
CALL INI_VEL( myThid ) |
CALL INI_VEL( myThid ) |
33 |
CALL INI_THETA( myThid ) |
CALL INI_THETA( myThid ) |
39 |
#endif |
#endif |
40 |
IF (nonHydrostatic) CALL INI_PNH( myThid ) |
IF (nonHydrostatic) CALL INI_PNH( myThid ) |
41 |
ELSE |
ELSE |
42 |
IF ( nIter0 .EQ. 0 ) THEN |
c IF ( nIter0 .EQ. 0 ) THEN |
43 |
nIter0 = INT(startTime/deltaTClock ) |
c nIter0 = INT(startTime/deltaTClock ) |
44 |
ENDIF |
c ENDIF |
45 |
CALL READ_CHECKPOINT( nIter0, myThid ) |
CALL READ_CHECKPOINT( nIter0, myThid ) |
46 |
|
|
47 |
CEH3 IF (pickup_write_immed) THEN |
CEH3 IF (pickup_write_immed) THEN |