Changeset 13016 for NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/IOM/iom_def.F90

Timestamp:

2020-06-03T12:48:36+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #2475 implementation of new interface

File:

• NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/IOM/iom_def.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_12905_xios_ancil/src/OCE/IOM/iom_def.F90

@@ -9 +9 @@
    !!----------------------------------------------------------------------
    USE par_kind
+   USE netcdf
 
    IMPLICIT NONE
@@ -45 +46 @@
    LOGICAL, PUBLIC            ::   lxios_sini = .FALSE. ! is restart in a single file
    LOGICAL, PUBLIC            ::   lxios_set  = .FALSE. 
+!XIOS configuration read
+   LOGICAL, PUBLIC            ::   lcfg_xios       !: read configuration using XIOS
 
 
@@ -73 +76 @@
     LOGICAL           :: active =.FALSE. ! for restart write only: true - write field, false do not write field
    END TYPE RST_FIELD
+!metadata in restart file for restart read with XIOS
+   INTEGER, PUBLIC, PARAMETER :: NMETA = 10
+   CHARACTER(LEN=nf90_max_name), PUBLIC :: meta(NMETA)
 !$AGRIF_END_DO_NOT_TREAT
    !