Changeset 8651 for branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.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/DOM/domain.F90 (modified) (2 diffs)

branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -48 +48 @@
    USE timing         ! Timing
    USE iom_def, ONLY:lwxios, wxioso, rst_wfields ! write restart flag and output type
-   USE iom, ONLY : set_rst_vars, set_rstw_core
+   USE iom, ONLY : iom_set_rst_vars, iom_set_rstw_core
    IMPLICIT NONE
    PRIVATE
@@ -132 +132 @@
       IF( lwxios ) THEN
 !define names for restart write and set core output (restart.F90)
-         CALL set_rst_vars(rst_wfields)
-         CALL set_rstw_core()
+         CALL iom_set_rst_vars(rst_wfields)
+         CALL iom_set_rstw_core()
       ENDIF
       !