Changeset 3769 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/SAS_SRC/step.F90

Timestamp:

2013-02-01T15:56:10+01:00 (11 years ago)

Author:

smasson

Message:

dev_MERGE_2012: xios+agrif+oasis compliant

File:

• branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/SAS_SRC/step.F90 (modified) (3 diffs)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/SAS_SRC/step.F90

@@ -19 +19 @@
    USE iom              !
    USE lbclnk
+#if defined key_iomput
+   USE xios
+#endif
 
    USE daymod           ! calendar                         (day     routine)
@@ -72 +75 @@
 # 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 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
@@ -82 +86 @@
                                                           ! need to keep the same interface 
                              CALL stp_ctl( kstp, indic )
+#if defined key_iomput
+      IF( kstp == nitend )   CALL xios_context_finalize() ! needed for XIOS+AGRIF
+#endif
       !
       IF( nn_timing == 1 .AND.  kstp == nit000  )   CALL timing_reset