Changeset 8079 for branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2017-05-26T12:09:41+02:00 (7 years ago)

Author:

andmirek

Message:

#1882 a first working version with XIOS writing restart file. Works with MO suite u-am389

File:

• branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (5 diffs)

branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -38 +38 @@
    USE timing          ! Timing
    USE lbclnk          ! ocean lateral boundary condition (or mpp link)
+   USE iom_def, ONLY:lwxios, wxioso ! write restart flag and output type
 
    IMPLICIT NONE
@@ -138 +139 @@
          &             nn_no   , cn_exp    , cn_ocerst_in, cn_ocerst_out, ln_rstart , ln_rstdate, nn_rstctl,   &
          &             nn_it000, nn_itend  , nn_date0    , nn_leapy     , nn_istate , nn_stock ,   &
-         &             nn_write, ln_dimgnnn, ln_mskland  , ln_cfmeta    , ln_clobber, nn_chunksz, nn_euler
+         &             nn_write, ln_dimgnnn, ln_mskland  , ln_cfmeta    , ln_clobber, nn_chunksz, nn_euler, &
+         &             nn_wxios
       NAMELIST/namdom/ nn_bathy, rn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin,   &
          &             nn_acc   , rn_atfp     , rn_rdt      , rn_rdtmin ,                  &
@@ -152 +154 @@
       INTEGER  ::   ios                 ! Local integer output status for namelist read
       !!----------------------------------------------------------------------
-
+      nn_wxios = 0
       REWIND( numnam_ref )              ! Namelist namrun in reference namelist : Parameters of the run
       READ  ( numnam_ref, namrun, IOSTAT = ios, ERR = 901)
@@ -193 +195 @@
          WRITE(numout,*) '      overwrite an existing file      ln_clobber = ', ln_clobber
          WRITE(numout,*) '      NetCDF chunksize (bytes)        nn_chunksz = ', nn_chunksz
+         WRITE(numout,*) '      Write restart using XIOS        nn_wxios   = ', nn_wxios
       ENDIF
 
@@ -305 +308 @@
       rdtmax    = rn_rdtmin
       rdth      = rn_rdth
+      if (nn_wxios > 0) lwxios = .TRUE. 
+      wxioso = nn_wxios
 
       REWIND( numnam_ref )              ! Namelist namcla in reference namelist : Cross land advection