Changeset 8651 for branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.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/DIA/diahsb.F90 (modified) (1 diff)

branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

@@ -371 +371 @@
       IF(lwxios) THEN
 ! define variables in restart file when writing with XIOS
-        CALL set_rstw_var_active('frc_v')
-        CALL set_rstw_var_active('frc_t')
-        CALL set_rstw_var_active('frc_s')
+        CALL iom_set_rstw_var_active('frc_v')
+        CALL iom_set_rstw_var_active('frc_t')
+        CALL iom_set_rstw_var_active('frc_s')
         IF( ln_linssh ) THEN
-           CALL set_rstw_var_active('frc_wn_t')
-           CALL set_rstw_var_active('frc_wn_s')
+           CALL iom_set_rstw_var_active('frc_wn_t')
+           CALL iom_set_rstw_var_active('frc_wn_s')
         ENDIF
-        CALL set_rstw_var_active('surf_ini')
-        CALL set_rstw_var_active('ssh_ini')
-        CALL set_rstw_var_active('e3t_ini')
-        CALL set_rstw_var_active('hc_loc_ini')
-        CALL set_rstw_var_active('sc_loc_ini')
+        CALL iom_set_rstw_var_active('surf_ini')
+        CALL iom_set_rstw_var_active('ssh_ini')
+        CALL iom_set_rstw_var_active('e3t_ini')
+        CALL iom_set_rstw_var_active('hc_loc_ini')
+        CALL iom_set_rstw_var_active('sc_loc_ini')
         IF( ln_linssh ) THEN
-           CALL set_rstw_var_active('ssh_hc_loc_ini')
-           CALL set_rstw_var_active('ssh_sc_loc_ini')
+           CALL iom_set_rstw_var_active('ssh_hc_loc_ini')
+           CALL iom_set_rstw_var_active('ssh_sc_loc_ini')
         ENDIF
       ENDIF