Changeset 11923 for NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/IOM/iom.F90

Timestamp:

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

Author:

andmirek

Message:

Ticket #2323 all other SETTE/tests configurations

File:

• NEMO/branches/2019/dev_r11756_SI3restart_XIOS/src/OCE/IOM/iom.F90 (modified) (3 diffs)

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