Changeset 14553 for NEMO/trunk/src/OCE/step.F90
- Timestamp:
- 2021-02-26T18:01:43+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/step.F90
r14239 r14553 133 133 #endif 134 134 ENDIF 135 IF( kstp + nn_fsbc - 1 == nitrst .AND. lwxios ) THEN 135 136 #if defined key_si3 136 IF( kstp + nn_fsbc - 1 == nitrst .AND. lwxios ) THEN137 137 CALL iom_swap( cw_icerst_cxt ) 138 138 CALL iom_init_closedef( cw_icerst_cxt ) 139 139 CALL iom_setkt( kstp - nit000 + 1, cw_icerst_cxt ) 140 ENDIF 141 #endif 140 #endif 141 IF( ln_abl ) THEN 142 CALL iom_swap( cw_ablrst_cxt ) 143 CALL iom_init_closedef( cw_ablrst_cxt ) 144 CALL iom_setkt( kstp - nit000 + 1, cw_ablrst_cxt ) 145 ENDIF 146 ENDIF 142 147 IF( kstp /= nit000 ) CALL day( kstp ) ! Calendar (day was already called at nit000 in day_init) 143 148 CALL iom_setkt( kstp - nit000 + 1, cxios_context ) ! tell IOM we are at time step kstp
Note: See TracChangeset
for help on using the changeset viewer.