- Timestamp:
- 2015-04-17T11:50:03+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/SAS_SRC/step.F90
r5215 r5220 72 72 kstp = nit000 + Agrif_Nb_Step() 73 73 # if defined key_iomput 74 IF( Agrif_Nbstepint() == 0 ) CALL iom_swap( "nemo")74 IF( Agrif_Nbstepint() == 0 ) CALL iom_swap( cxios_context ) 75 75 # endif 76 76 #endif 77 IF( kstp == nit000 ) CALL iom_init( "nemo" )! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS)77 IF( kstp == nit000 ) CALL iom_init( cxios_context ) ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS) 78 78 IF( kstp /= nit000 ) CALL day( kstp ) ! Calendar (day was already called at nit000 in day_init) 79 CALL iom_setkt( kstp , "nemo" ) ! say to iom thatwe are at time step kstp79 CALL iom_setkt( kstp - nit000 + 1, cxios_context ) ! tell iom we are at time step kstp 80 80 81 81 CALL sbc ( kstp ) ! Sea Boundary Condition (including sea-ice) … … 87 87 CALL stp_ctl( kstp, indic ) 88 88 #if defined key_iomput 89 IF( kstp == nitend ) CALL iom_context_finalize( "nemo" ) ! needed for XIOS+AGRIF 89 IF( kstp == nitend .OR. indic < 0 ) THEN 90 CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF 91 ENDIF 90 92 #endif 91 93 !
Note: See TracChangeset
for help on using the changeset viewer.