Changeset 11923 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/SAS

Timestamp:

2019-11-18T09:38:39+01:00 (5 years ago)

Author:

andmirek

Message:

Ticket #2323 all other SETTE/tests configurations

Location:

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/SAS

Files:

• nemogcm.F90 (modified) (1 diff)
• step.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/SAS/nemogcm.F90

@@ -194 +194 @@
       ELSE                  ;   cxios_context = 'nemo'
       ENDIF
+      cwxios_context = 'nemo_rstw'
       !
       !                             !-------------------------------------------------!

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/SAS/step.F90

@@ -88 +88 @@
                              indic = 0                    ! although indic is not changed in stp_ctl
                                                           ! need to keep the same interface 
-      IF( kstp == nit000 )   CALL iom_init( cxios_context ) ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS)
+      IF( kstp == nit000 ) THEN
+        CALL iom_init( cxios_context ) ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS)
+        IF( lwxios      )   CALL iom_init( cwxios_context              )  ! restart write context
+      ENDIF
       IF( kstp /= nit000 )   CALL day( kstp )             ! Calendar (day was already called at nit000 in day_init)
                              CALL iom_setkt( kstp - nit000 + 1, cxios_context )   ! tell iom we are at time step kstp
@@ -134 +137 @@
          IF(.NOT.lwxios) THEN
             CALL iom_close( numrow )     
-         ELSE
-            CALL iom_context_finalize( cwxios_context )
          ENDIF
          lrst_oce = .FALSE.
@@ -146 +147 @@
                              CALL iom_context_finalize( crxios_context)
                   ENDIF
+
+                  IF(lwxios) CALL iom_context_finalize(      cwxios_context          )
+
                              CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF
       ENDIF