Changeset 8857 for branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2017-11-30T15:24:15+01:00 (7 years ago)

Author:

andmirek

Message:

#1953 and #1962 handle together setting XIOS restart read and write flags

File:

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

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

@@ -369 +369 @@
       nwrite = nn_write
       neuler = nn_euler
-      IF( TRIM(Agrif_CFixed()) == '0') THEN 
-       lrxios = ln_xios_read.AND.ln_rstart
-      ENDIF
       IF ( neuler == 1 .AND. .NOT. ln_rstart ) THEN
          WRITE(ctmp1,*) 'ln_rstart =.FALSE., nn_euler is forced to 0 '
@@ -439 +436 @@
 
       IF( TRIM(Agrif_CFixed()) == '0' ) THEN
+         lrxios = ln_xios_read.AND.ln_rstart
 !set output file type for XIOS based on NEMO namelist 
-         if (nn_wxios > 0) lwxios = .TRUE. 
+         IF (nn_wxios > 0) lwxios = .TRUE. 
          nxioso = nn_wxios
       ELSE
          IF(lwp) THEN
             write(numout,*)
-            write(numout,*) "AGRIF: nn_wxios will be ingored. See setting for NEMO" 
+            write(numout,*) "AGRIF: nn_wxios will be ingored. See setting for parent" 
+            write(numout,*) "AGRIF: ln_xios_read will be ingored. See setting for parent"
             write(numout,*)
          ENDIF