Changeset 14239 for NEMO/trunk/src/OCE/step.F90

Timestamp:

2020-12-23T09:57:16+01:00 (3 years ago)

Author:

smasson

Message:

trunk: replace key_iomput by key_xios

File:

• NEMO/trunk/src/OCE/step.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/step.F90

@@ -97 +97 @@
       ENDIF
       IF( kstp == nit000 + 1 )   lk_agrif_fstep = .FALSE.
-# if defined key_iomput
+# if defined key_xios
       IF( Agrif_Nbstepint() == 0 )   CALL iom_swap( cxios_context )
 # endif
@@ -384 +384 @@
       IF( lk_oasis .AND. nstop == 0 )   CALL sbc_cpl_snd( kstp, Nbb, Nnn )     ! coupled mode : field exchanges
       !
-#if defined key_iomput
+#if defined key_xios
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       ! Finalize contextes if end of simulation or error detected