Changeset 8812 for branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

2017-11-24T17:34:50+01:00 (6 years ago)

Author:

andmirek

Message:

#1953 and #1962 enable restart read/write with XIOS in SAS

File:

• branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (2 diffs)

branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -311 +311 @@
    END SUBROUTINE iom_set_rstr_active
 
-   SUBROUTINE iom_set_rstw_core()
+   SUBROUTINE iom_set_rstw_core(cdmdl)
+   CHARACTER (len=*), INTENT (IN) :: cdmdl
+   
+   IF(cdmdl == "OPA") THEN
 !from restart.F90
    CALL iom_set_rstw_var_active("rdt")
@@ -343 +346 @@
          CALL iom_set_rstw_var_active('sbc_hc_b')
          CALL iom_set_rstw_var_active('sbc_sc_b')
+   ENDIF
    END SUBROUTINE iom_set_rstw_core