- Timestamp:
- 2020-07-01T15:42:06+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette@ HEADsette10 ^/utils/CI/sette@12931 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/step.F90
r12724 r13193 86 86 !!---------------------------------------------------------------------- 87 87 INTEGER :: ji, jj, jk ! dummy loop indice 88 INTEGER :: indic ! error indicator if < 089 88 !!gm kcall can be removed, I guess 90 89 INTEGER :: kcall ! optional integer argument (dom_vvl_sf_nxt) 91 90 !! --------------------------------------------------------------------- 92 91 #if defined key_agrif 93 IF( nstop > 0 ) return ! avoid to go further if an error was detected during previous time step92 IF( nstop > 0 ) RETURN ! avoid to go further if an error was detected during previous time step (child grid) 94 93 kstp = nit000 + Agrif_Nb_Step() 95 94 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices … … 119 118 ! update I/O and calendar 120 119 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 121 indic = 0 ! reset to no error condition122 123 120 IF( kstp == nit000 ) THEN ! initialize IOM context (must be done after nemo_init for AGRIF+XIOS+OASIS) 124 CALL iom_init( cxios_context, ld_closedef=.FALSE. ) ! for model grid (including p assible AGRIF zoom)121 CALL iom_init( cxios_context, ld_closedef=.FALSE. ) ! for model grid (including possible AGRIF zoom) 125 122 IF( lk_diamlr ) CALL dia_mlr_iom_init ! with additional setup for multiple-linear-regression analysis 126 123 CALL iom_init_closedef … … 318 315 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 319 316 CALL Agrif_Integrate_ChildGrids( stp ) ! allows to finish all the Child Grids before updating 317 320 318 #endif 321 319 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 322 320 ! Control 323 321 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 324 CALL stp_ctl ( kstp, Nbb, Nnn, indic ) 322 CALL stp_ctl ( kstp, Nnn ) 323 325 324 #if defined key_agrif 326 325 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 330 329 CALL Agrif_update_all( ) ! Update all components 331 330 ENDIF 332 #endif 333 IF( ln_diaobs ) CALL dia_obs ( kstp, Nnn ) ! obs-minus-model (assimilation) diagnostics (call after dynamics update) 331 332 #endif 333 IF( ln_diaobs .AND. nstop == 0 ) CALL dia_obs( kstp, Nnn ) ! obs-minus-model (assimilation) diags (after dynamics update) 334 334 335 335 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 345 345 ! Coupled mode 346 346 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 347 !!gm why lk_oasis and not lk_cpl ???? 348 IF( lk_oasis ) CALL sbc_cpl_snd( kstp, Nbb, Nnn ) ! coupled mode : field exchanges 347 IF( lk_oasis .AND. nstop == 0 ) CALL sbc_cpl_snd( kstp, Nbb, Nnn ) ! coupled mode : field exchanges 349 348 ! 350 349 #if defined key_iomput … … 352 351 ! Finalize contextes if end of simulation or error detected 353 352 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 354 IF( kstp == nitend .OR. indic <0 ) THEN353 IF( kstp == nitend .OR. nstop > 0 ) THEN 355 354 CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF 356 355 IF( lrxios ) CALL iom_context_finalize( crxios_context )
Note: See TracChangeset
for help on using the changeset viewer.