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

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

@@ -343 +343 @@
       !
       IF( lwxios ) THEN
-         CALL set_rstw_var_active('utau_b')
-         CALL set_rstw_var_active('vtau_b')
-         CALL set_rstw_var_active('qns_b')
+         CALL iom_set_rstw_var_active('utau_b')
+         CALL iom_set_rstw_var_active('vtau_b')
+         CALL iom_set_rstw_var_active('qns_b')
          ! The 3D heat content due to qsr forcing is treated in traqsr
-         ! CALL set_rstw_var_active('qsr_b')
-         CALL set_rstw_var_active('emp_b')
-         CALL set_rstw_var_active('sfx_b')
+         ! CALL iom_set_rstw_var_active('qsr_b')
+         CALL iom_set_rstw_var_active('emp_b')
+         CALL iom_set_rstw_var_active('sfx_b')
       ENDIF