Changeset 3769 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/nemogcm.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/OFF_SRC/nemogcm.F90 (modified) (3 diffs)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

@@ -91 +91 @@
       istp = nit000
          !
+      CALL iom_init            ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS)
       DO WHILE ( istp <= nitend .AND. nstop == 0 )    ! time stepping
          !
@@ -101 +102 @@
          IF( lk_mpp )   CALL mpp_max( nstop )
       END DO
+#if defined key_iomput
+      CALL xios_context_finalize() ! needed for XIOS+AGRIF
+#endif
 
       !                            !------------------------!
@@ -250 +254 @@
       !                                     ! Dynamics
                             CALL dta_dyn_init   ! Initialization for the dynamics
-                            CALL     iom_init       ! iom_put initialization
 
       IF(lwp) WRITE(numout,cform_aaa)       ! Flag AAAAAAA