- Timestamp:
- 2020-05-21T17:14:32+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r12745_HPC-02_Daley_Tiling_trial_public/src/OCE/step.F90
r12879 r12958 82 82 !!---------------------------------------------------------------------- 83 83 INTEGER :: ji, jj, jk, jtile ! dummy loop indice 84 INTEGER :: indic ! error indicator if < 085 84 !!gm kcall can be removed, I guess 86 85 INTEGER :: kcall ! optional integer argument (dom_vvl_sf_nxt) 87 86 !! --------------------------------------------------------------------- 88 87 #if defined key_agrif 89 IF( nstop > 0 ) return ! avoid to go further if an error was detected during previous time step88 IF( nstop > 0 ) RETURN ! avoid to go further if an error was detected during previous time step (child grid) 90 89 kstp = nit000 + Agrif_Nb_Step() 91 90 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices … … 115 114 ! update I/O and calendar 116 115 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 117 indic = 0 ! reset to no error condition118 119 116 IF( kstp == nit000 ) THEN ! initialize IOM context (must be done after nemo_init for AGRIF+XIOS+OASIS) 120 CALL iom_init( cxios_context, ld_closedef=.FALSE. ) ! for model grid (including p assible AGRIF zoom)117 CALL iom_init( cxios_context, ld_closedef=.FALSE. ) ! for model grid (including possible AGRIF zoom) 121 118 IF( lk_diamlr ) CALL dia_mlr_iom_init ! with additional setup for multiple-linear-regression analysis 122 119 CALL iom_init_closedef … … 319 316 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 320 317 CALL Agrif_Integrate_ChildGrids( stp ) ! allows to finish all the Child Grids before updating 318 321 319 #endif 322 320 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 323 321 ! Control 324 322 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 325 CALL stp_ctl ( kstp, Nbb, Nnn, indic ) 323 CALL stp_ctl ( kstp, Nnn ) 324 326 325 #if defined key_agrif 327 326 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 331 330 CALL Agrif_update_all( ) ! Update all components 332 331 ENDIF 333 #endif 334 IF( ln_diaobs ) CALL dia_obs ( kstp, Nnn ) ! obs-minus-model (assimilation) diagnostics (call after dynamics update) 332 333 #endif 334 IF( ln_diaobs .AND. nstop == 0 ) CALL dia_obs( kstp, Nnn ) ! obs-minus-model (assimilation) diags (after dynamics update) 335 335 336 336 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 346 346 ! Coupled mode 347 347 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 348 !!gm why lk_oasis and not lk_cpl ???? 349 IF( lk_oasis ) CALL sbc_cpl_snd( kstp, Nbb, Nnn ) ! coupled mode : field exchanges 348 IF( lk_oasis .AND. nstop == 0 ) CALL sbc_cpl_snd( kstp, Nbb, Nnn ) ! coupled mode : field exchanges 350 349 ! 351 350 #if defined key_iomput … … 353 352 ! Finalize contextes if end of simulation or error detected 354 353 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 355 IF( kstp == nitend .OR. indic <0 ) THEN354 IF( kstp == nitend .OR. nstop > 0 ) THEN 356 355 CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF 357 356 IF( lrxios ) CALL iom_context_finalize( crxios_context )
Note: See TracChangeset
for help on using the changeset viewer.