Changeset 12950 for NEMO/branches/2020/dev_12905_xios_restart/src/OCE/SBC/sbcssm.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/SBC/sbcssm.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_12905_xios_restart/src/OCE/SBC/sbcssm.F90

@@ -205 +205 @@
          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~ '
          !
+         IF( lrxios ) CALL iom_swap( TRIM(crxios_context) )
          IF( ln_rstart .AND. iom_varid( numror, 'nn_fsbc', ldstop = .FALSE. ) > 0 ) THEN
             l_ssm_mean = .TRUE.
@@ -235 +236 @@
             ENDIF
          ENDIF
+         IF( lrxios ) CALL iom_swap( TRIM(cxios_context) )
       ENDIF
       !
@@ -254 +256 @@
       IF( .NOT. ln_traqsr )   fraqsr_1lev(:,:) = 1._wp   ! default definition: qsr 100% in the fisrt level 
       !
-      IF( lwxios.AND.nn_fsbc > 1 ) THEN
-         CALL iom_set_rstw_var_active('nn_fsbc')
-         CALL iom_set_rstw_var_active('ssu_m')
-         CALL iom_set_rstw_var_active('ssv_m')
-         CALL iom_set_rstw_var_active('sst_m')
-         CALL iom_set_rstw_var_active('sss_m')
-         CALL iom_set_rstw_var_active('ssh_m')
-         CALL iom_set_rstw_var_active('e3t_m')
-         CALL iom_set_rstw_var_active('frq_m')
-      ENDIF
-
    END SUBROUTINE sbc_ssm_init