Changeset 12651 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/step.F90
- Timestamp:
- 2020-04-03T09:51:14+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/step.F90
r12276 r12651 81 81 !! --------------------------------------------------------------------- 82 82 #if defined key_agrif 83 IF( nstop > 0 ) return ! avoid to go further if an error was detected during previous time step 83 84 kstp = nit000 + Agrif_Nb_Step() 84 85 IF( lk_agrif_debug ) THEN … … 280 281 #if defined key_agrif 281 282 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 282 ! AGRIF 283 ! AGRIF recursive integration 283 284 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 284 285 CALL Agrif_Integrate_ChildGrids( stp ) ! allows to finish all the Child Grids before updating 285 286 IF( Agrif_NbStepint() == 0 ) CALL Agrif_update_all( ) ! Update all components 287 #endif 288 IF( ln_diaobs ) CALL dia_obs ( kstp ) ! obs-minus-model (assimilation) diagnostics (call after dynamics update) 289 286 #endif 290 287 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 291 288 ! Control … … 293 290 CALL stp_ctl ( kstp, indic ) 294 291 292 #if defined key_agrif 293 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 294 ! AGRIF update 295 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 296 IF( Agrif_NbStepint() == 0 .AND. nstop == 0 ) CALL Agrif_update_all( ) ! Update all components 297 #endif 298 299 IF( ln_diaobs ) CALL dia_obs ( kstp ) ! obs-minus-model (assimilation) diagnostics (call after dynamics update) 300 301 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 302 ! File manipulation at the end of the first time step 303 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 295 304 IF( kstp == nit000 ) THEN ! 1st time step only 296 305 CALL iom_close( numror ) ! close input ocean restart file … … 306 315 ! 307 316 #if defined key_iomput 317 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 318 ! Finalize contextes if end of simulation or error detected 319 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 308 320 IF( kstp == nitend .OR. indic < 0 ) THEN 309 321 CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF 310 IF(lrxios) CALL iom_context_finalize( crxios_context)322 IF( lrxios ) CALL iom_context_finalize( crxios_context ) 311 323 IF( ln_crs ) CALL iom_context_finalize( trim(cxios_context)//"_crs" ) ! 312 324 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.