Changeset 8612 for branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2017-10-11T13:03:17+02:00 (7 years ago)

Author:

andmirek

Message:

#1953 read single file restart with XIOS

File:

• branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (5 diffs)

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

@@ -47 +47 @@
    USE wrk_nemo       ! Memory Allocation
    USE timing         ! Timing
+   USE iom_def, ONLY : lxios_read
 
    IMPLICIT NONE
@@ -285 +286 @@
          &             nn_it000, nn_itend , nn_date0    , nn_time0     , nn_leapy  , nn_istate ,     &
          &             nn_stock, nn_write , ln_mskland  , ln_clobber   , nn_chunksz, nn_euler  ,     &
-         &             ln_cfmeta, ln_iscpl
+         &             ln_cfmeta, ln_iscpl, ln_xios_read
       NAMELIST/namdom/ ln_linssh, nn_closea, nn_msh, rn_isfhmin, rn_rdt, rn_atfp, ln_crs
 #if defined key_netcdf4
@@ -293 +294 @@
       !!----------------------------------------------------------------------
       !
+      ln_xios_read = .false.            ! set in case ln_xios_read is not in namelist
       REWIND( numnam_ref )              ! Namelist namrun in reference namelist : Parameters of the run
       READ  ( numnam_ref, namrun, IOSTAT = ios, ERR = 901)
@@ -333 +335 @@
          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') THEN
+         WRITE(numout,*) '      READ restart for a single file using XIOS WILL use not use AGRIF setting.'
+      ENDIF
       ENDIF
 
@@ -347 +353 @@
       nwrite = nn_write
       neuler = nn_euler
+      IF( TRIM(Agrif_CFixed()) == '0') THEN 
+       lxios_read = 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 '