Changeset 4166 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/SAS_SRC/step.F90

Timestamp:

2013-11-08T06:51:52+01:00 (10 years ago)

Author:

cetlod

Message:

dev_LOCEAN_2013 : bugs corrections, see ticket #1169

File:

• branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/SAS_SRC/step.F90 (modified) (2 diffs)

branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/SAS_SRC/step.F90

@@ -72 +72 @@
       kstp = nit000 + Agrif_Nb_Step()
 # if defined key_iomput
-      IF( Agrif_Nbstepint() == 0 )   CALL iom_swap
+      IF( Agrif_Nbstepint() == 0 )   CALL iom_swap( "nemo" )
 # endif   
 #endif   
-      IF( kstp == nit000 )   CALL iom_init            ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS)
+      IF( kstp == nit000 )   CALL iom_init( "nemo" )       ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS)
       IF( kstp /= nit000 )   CALL day( kstp )             ! Calendar (day was already called at nit000 in day_init)
-                             CALL iom_setkt( kstp )       ! say to iom that we are at time step kstp
+                             CALL iom_setkt( kstp, "nemo" )       ! say to iom that we are at time step kstp
 
                              CALL sbc    ( kstp )         ! Sea Boundary Condition (including sea-ice)
@@ -87 +87 @@
                              CALL stp_ctl( kstp, indic )
 #if defined key_iomput
-      IF( kstp == nitend )   CALL xios_context_finalize() ! needed for XIOS+AGRIF
+      IF( kstp == nitend )   CALL iom_context_finalize( "nemo" ) ! needed for XIOS+AGRIF
 #endif
       !