Changeset 13970 for NEMO/trunk/src/OCE/step.F90
- Timestamp:
- 2020-12-02T10:56:33+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/step.F90
r13237 r13970 124 124 IF( ln_crs ) CALL iom_init( TRIM(cxios_context)//"_crs" ) ! for coarse grid 125 125 ENDIF 126 IF((kstp == nitrst) .AND. lwxios) THEN 127 CALL iom_swap( cw_ocerst_cxt ) 128 CALL iom_init_closedef(cw_ocerst_cxt) 129 CALL iom_setkt( kstp - nit000 + 1, cw_ocerst_cxt ) 130 #if defined key_top 131 CALL iom_swap( cw_toprst_cxt ) 132 CALL iom_init_closedef(cw_toprst_cxt) 133 CALL iom_setkt( kstp - nit000 + 1, cw_toprst_cxt ) 134 #endif 135 ENDIF 136 #if defined key_si3 137 IF(((kstp + nn_fsbc - 1) == nitrst) .AND. lwxios) THEN 138 CALL iom_swap( cw_icerst_cxt ) 139 CALL iom_init_closedef(cw_icerst_cxt) 140 CALL iom_setkt( kstp - nit000 + 1, cw_icerst_cxt ) 141 ENDIF 142 #endif 126 143 IF( kstp /= nit000 ) CALL day( kstp ) ! Calendar (day was already called at nit000 in day_init) 127 144 CALL iom_setkt( kstp - nit000 + 1, cxios_context ) ! tell IOM we are at time step kstp … … 338 355 IF( kstp == nit000 ) THEN ! 1st time step only 339 356 CALL iom_close( numror ) ! close input ocean restart file 357 IF( lrxios ) CALL iom_context_finalize( cr_ocerst_cxt ) 340 358 IF(lwm) CALL FLUSH ( numond ) ! flush output namelist oce 341 359 IF(lwm .AND. numoni /= -1 ) CALL FLUSH ( numoni ) ! flush output namelist ice (if exist) … … 353 371 IF( kstp == nitend .OR. nstop > 0 ) THEN 354 372 CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF 355 IF( lrxios ) CALL iom_context_finalize( crxios_context )356 373 IF( ln_crs ) CALL iom_context_finalize( trim(cxios_context)//"_crs" ) ! 357 374 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.