Changeset 12950 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ZDF/zdfgls.F90

Timestamp:

2020-05-19T12:53:16+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2462: new XIOS restart read/write interfaces

File:

• NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ZDF/zdfgls.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_12905_xios_restart/src/OCE/ZDF/zdfgls.F90

@@ -1025 +1025 @@
       CALL gls_rst( nit000, 'READ' )      ! (en, avt_k, avm_k, hmxl_n)
       !
-      IF( lwxios ) THEN
-         CALL iom_set_rstw_var_active('en')
-         CALL iom_set_rstw_var_active('avt_k')
-         CALL iom_set_rstw_var_active('avm_k')
-         CALL iom_set_rstw_var_active('hmxl_n')
-      ENDIF
-      !
    END SUBROUTINE zdf_gls_init
 
@@ -1059 +1052 @@
          !                                   ! ---------------
          IF( ln_rstart ) THEN                   !* Read the restart file
+            IF( lrxios ) CALL iom_swap( TRIM(crxios_context) )
             id1 = iom_varid( numror, 'en'    , ldstop = .FALSE. )
             id2 = iom_varid( numror, 'avt_k' , ldstop = .FALSE. )
@@ -1076 +1070 @@
                ! avt_k, avm_k already set to the background value in zdf_phy_init
             ENDIF
+            IF( lrxios ) CALL iom_swap( TRIM(cxios_context) )
          ELSE                                   !* Start from rest
             IF(lwp) WRITE(numout,*)