Changeset 8793 for branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2017-11-23T13:02:23+01:00 (7 years ago)

Author:

andmirek

Message:

#1953 and #1962 change lxios_read to lrxios to be consistent with write branch

File:

• branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (2 diffs)

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

@@ -49 +49 @@
    USE iom_def, ONLY:lwxios, nxioso, rst_wfields ! write restart flag and output type
    USE iom, ONLY : iom_set_rst_vars, iom_set_rstw_core
-   USE iom_def, ONLY : lxios_read
+   USE iom_def, ONLY : lrxios
 
    IMPLICIT NONE
@@ -365 +365 @@
       neuler = nn_euler
       IF( TRIM(Agrif_CFixed()) == '0') THEN 
-       lxios_read = ln_xios_read.AND.ln_rstart
+       lrxios = ln_xios_read.AND.ln_rstart
       ENDIF
       IF ( neuler == 1 .AND. .NOT. ln_rstart ) THEN