Changeset 8651 for branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

Timestamp:

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

Author:

andmirek

Message:

change names of the new subroutines

File:

• branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (1 diff)

branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -1327 +1327 @@
       IF( lwxios ) THEN
 ! define variables in restart file when writing with XIOS
-         CALL set_rstw_var_active('ub2_b')
-         CALL set_rstw_var_active('vb2_b')
+         CALL iom_set_rstw_var_active('ub2_b')
+         CALL iom_set_rstw_var_active('vb2_b')
          !
          IF (.NOT.ln_bt_av) THEN
-            CALL set_rstw_var_active('sshbb_e')
-            CALL set_rstw_var_active('ubb_e')
-            CALL set_rstw_var_active('vbb_e')
-            CALL set_rstw_var_active('sshb_e')
-            CALL set_rstw_var_active('ub_e')
-            CALL set_rstw_var_active('vb_e')
+            CALL iom_set_rstw_var_active('sshbb_e')
+            CALL iom_set_rstw_var_active('ubb_e')
+            CALL iom_set_rstw_var_active('vbb_e')
+            CALL iom_set_rstw_var_active('sshb_e')
+            CALL iom_set_rstw_var_active('ub_e')
+            CALL iom_set_rstw_var_active('vb_e')
          ENDIF
 #if defined key_agrif
          ! Save time integrated fluxes
          IF ( .NOT.Agrif_Root() ) THEN
-            CALL set_rstw_var_active('ub2_i_b')
-            CALL set_rstw_var_active('vb2_i_b')
+            CALL iom_set_rstw_var_active('ub2_i_b')
+            CALL iom_set_rstw_var_active('vb2_i_b')
          ENDIF
 #endif