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

Timestamp:

2017-10-23T13:07:22+02:00 (6 years ago)

Author:

andmirek

Message:

change names of the new subroutines

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

@@ -255 +255 @@
       !
       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')
+         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