41 |
CALL INI_FIELDS( myThid ) |
CALL INI_FIELDS( myThid ) |
42 |
_BARRIER |
_BARRIER |
43 |
|
|
44 |
|
C-- IMPORTANT : Need to activate the following call to restart from |
45 |
|
C a pickup file written by MITgcmUV_checkpoint34 or earlier. |
46 |
|
C IF ( startTime .NE. 0. ) THEN |
47 |
|
C CALL THE_CORRECTION_STEP(startTime, nIter0, myThid) |
48 |
|
C ENDIF |
49 |
|
|
50 |
C-- Initial conditions are convectively adjusted (for historical reasons) |
C-- Initial conditions are convectively adjusted (for historical reasons) |
51 |
IF ( startTime .EQ. 0. ) THEN |
IF ( startTime .EQ. 0. ) THEN |
52 |
DO bj = myByLo(myThid), myByHi(myThid) |
DO bj = myByLo(myThid), myByHi(myThid) |