- Timestamp:
- 2013-11-05T12:59:53+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/step.F90
r4147 r4152 24 24 !! - ! 2010-10 (C. Ethe, G. Madec) reorganisation of initialisation phase + merge TRC-TRA 25 25 !! 3.4 ! 2011-04 (G. Madec, C. Ethe) Merge of dtatem and dtasal 26 !! ! 2012-07 (J. Simeon, G. Madec. C. Ethe) Online coarsening of outputs 26 27 !!---------------------------------------------------------------------- 27 28 … … 78 79 ! IF (lwp) Write(*,*) 'Grid Number',Agrif_Fixed(),' time step ',kstp 79 80 # if defined key_iomput 80 IF( Agrif_Nbstepint() == 0 ) CALL iom_swap 81 IF( Agrif_Nbstepint() == 0 ) CALL iom_swap( "nemo" ) 81 82 # endif 82 83 #endif 83 84 indic = 0 ! reset to no error condition 85 IF( kstp == nit000 ) CALL iom_init ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 84 indic = 0 ! reset to no error condition 85 IF( kstp == nit000 ) THEN 86 CALL iom_init( "nemo" ) ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 87 IF( ln_crs ) CALL iom_init( "nemo_crs" ) ! initialize context for coarse grid 88 ENDIF 86 89 87 90 IF( kstp /= nit000 ) CALL day( kstp ) ! Calendar (day was already called at nit000 in day_init) 88 CALL iom_setkt( kstp - nit000 + 1 ) ! say to iom that we are at time step kstp 91 CALL iom_setkt( kstp - nit000 + 1, "nemo" ) ! say to iom that we are at time step kstp 92 IF( ln_crs ) CALL iom_setkt( kstp - nit000 + 1, "nemo_crs" ) ! say to iom that we are at time step kstp 89 93 90 94 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 173 177 IF( lk_diaharm ) CALL dia_harm( kstp ) ! Tidal harmonic analysis 174 178 CALL dia_wri( kstp ) ! ocean model: outputs 179 ! 180 IF( ln_crs ) CALL crs_fld( kstp ) ! ocean model: online field coarsening & output 181 175 182 176 183 #if defined key_top … … 277 284 IF( lk_cpl ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges 278 285 ! 279 #if defined key_iomput 280 IF( kstp == nitend ) CALL xios_context_finalize() ! needed for XIOS+AGRIF 281 #endif 286 IF( kstp == nitend ) THEN 287 CALL iom_context_finalize( "nemo" ) ! needed for XIOS+AGRIF 288 IF( ln_crs ) CALL iom_context_finalize( "nemo_crs" ) ! 289 ENDIF 282 290 ! 283 291 IF( nn_timing == 1 .AND. kstp == nit000 ) CALL timing_reset
Note: See TracChangeset
for help on using the changeset viewer.