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

Timestamp:

2017-11-30T15:50:38+01:00 (7 years ago)

Author:

andmirek

Message:

#1953 and #1962 tidy up prints for previous commit

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

@@ -350 +350 @@
          WRITE(numout,*) '      NetCDF chunksize (bytes)        nn_chunksz = ', nn_chunksz
          WRITE(numout,*) '      IS coupling at the restart step ln_iscpl   = ', ln_iscpl
-         WRITE(numout,*) '      READ restart for a single file using XIOS ln_xios_read =', ln_xios_read
-         IF( TRIM(Agrif_CFixed()) /= '0') &
-     &       WRITE(numout,*) '      READ restart for a single file using XIOS WILL not use AGRIF setting.'
-         IF( TRIM(Agrif_CFixed()) == '0' ) &
-     &      WRITE(numout,*) '      Write restart using XIOS        nn_wxios   = ', nn_wxios
+         IF( TRIM(Agrif_CFixed()) == '0' ) THEN
+            WRITE(numout,*) '      READ restart for a single file using XIOS ln_xios_read =', ln_xios_read
+            WRITE(numout,*) '      Write restart using XIOS        nn_wxios   = ', nn_wxios
+         ELSE
+            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"
+         ENDIF
       ENDIF
 
@@ -440 +442 @@
          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 parent" 
-            write(numout,*) "AGRIF: ln_xios_read will be ingored. See setting for parent"
-            write(numout,*)
-         ENDIF
       ENDIF