77 |
_RL mytime |
_RL mytime |
78 |
#ifdef ALLOW_BULK_FORCE |
#ifdef ALLOW_BULK_FORCE |
79 |
INTEGER bi,bj |
INTEGER bi,bj |
80 |
#endif ALLOW_BULK_FORCE |
#endif |
81 |
|
|
82 |
CEOP |
CEOP |
83 |
|
|
197 |
CALL SEAICE_MODEL( myTime, myIter, myThid ) |
CALL SEAICE_MODEL( myTime, myIter, myThid ) |
198 |
CALL TIMER_STOP ('SEAICE_MODEL [FORWARD_STEP]',myThid) |
CALL TIMER_STOP ('SEAICE_MODEL [FORWARD_STEP]',myThid) |
199 |
ENDIF |
ENDIF |
200 |
# endif ALLOW_SEAICE |
# endif /* ALLOW_SEAICE */ |
201 |
#endif ALLOW_BULK_FORCE |
#endif /* ALLOW_BULK_FORCE */ |
202 |
|
|
203 |
C-- Step forward fields and calculate time tendency terms. |
C-- Step forward fields and calculate time tendency terms. |
204 |
CALL TIMER_START('THERMODYNAMICS [FORWARD_STEP]',mythid) |
CALL TIMER_START('THERMODYNAMICS [FORWARD_STEP]',mythid) |