Changeset 8644 for branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

Timestamp:

2017-10-20T10:04:07+02:00 (6 years ago)

Author:

andmirek

Message:

ticket #1962 xios write functionality works

File:

• branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90 (modified) (1 diff)

branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

@@ -254 +254 @@
       ENDIF
       !
+      IF( lwxios.AND.nn_fsbc > 1 ) THEN
+         CALL set_rstw_var_active('nn_fsbc')
+         CALL set_rstw_var_active('ssu_m')
+         CALL set_rstw_var_active('ssv_m')
+         CALL set_rstw_var_active('sst_m')
+         CALL set_rstw_var_active('sss_m')
+         CALL set_rstw_var_active('ssh_m')
+         CALL set_rstw_var_active('e3t_m')
+         CALL set_rstw_var_active('frq_m')
+      ENDIF
+
    END SUBROUTINE sbc_ssm_init