Changeset 11923 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE

Timestamp:

2019-11-18T09:38:39+01:00 (5 years ago)

Author:

andmirek

Message:

Ticket #2323 all other SETTE/tests configurations

Location:

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE

Files:

• DOM/domain.F90 (modified) (1 diff)
• IOM/iom.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/DOM/domain.F90

@@ -126 +126 @@
          CALL iom_set_rstw_core(rst_wfields, cdstr)
       ENDIF
-!reset namelist for SAS
-      IF(cdstr == 'SAS') THEN
-         IF(lrxios) THEN
-               IF(lwp) write(numout,*) 'Disable reading restart file using XIOS for SAS'
-               lrxios = .FALSE.
-         ENDIF
-      ENDIF
       !
       CALL dom_hgr                     ! Horizontal mesh

NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/IOM/iom.F90

@@ -71 +71 @@
    PRIVATE set_grid, set_grid_bounds, set_scalar, set_xmlatt, set_mooring, iom_update_file_name, iom_sdate
    PRIVATE iom_set_rst_context, iom_set_rstw_active, iom_set_rstr_active
+   PRIVATE iom_add
 # endif
    PRIVATE iom_define_restartw, iom_set_rstw_validate
    PUBLIC iom_set_rstw_var_active, iom_set_rstw_core, iom_set_rst_vars
-   PRIVATE iom_add
    INTEGER,           PRIVATE    :: numrst
    CHARACTER(len=12), PRIVATE    :: snr
@@ -569 +569 @@
    CHARACTER(len=2)  ::   zchar
    CHARACTER(len=25) ::   znam
-
+#if defined key_iomput
         i = 0
         i = iom_add(i); fields(i)%vname="rdt";            fields(i)%grid="grid_scalar"
@@ -798 +798 @@
         i = iom_add(i); fields(i)%vname="snwice_mass_b"; fields(i)%grid="grid_N"
 #endif
+#endif
    END SUBROUTINE iom_set_rst_vars