Ignore:
Timestamp:
2020-05-19T12:53:16+02:00 (5 months ago)
Author:
andmirek
Message:

Ticket #2462: new XIOS restart read/write interfaces

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_12905_xios_restart/src/OCE/IOM/iom_def.F90

    r12914 r12950  
    99   !!---------------------------------------------------------------------- 
    1010   USE par_kind 
     11   USE netcdf 
    1112 
    1213   IMPLICIT NONE 
     
    6768   END TYPE file_descriptor 
    6869   TYPE(file_descriptor), DIMENSION(jpmax_files), PUBLIC ::   iom_file !: array containing the info for all opened files 
    69    INTEGER, PARAMETER, PUBLIC                   :: max_rst_fields = 105 !: maximum number of restart variables defined in iom_set_rst_vars 
    70    TYPE, PUBLIC :: RST_FIELD   
    71     CHARACTER(len=30) :: vname = "NO_NAME" ! names of variables in restart file 
    72     CHARACTER(len=30) :: grid = "NO_GRID" 
    73     LOGICAL           :: active =.FALSE. ! for restart write only: true - write field, false do not write field 
    74    END TYPE RST_FIELD 
     70!metadata in restart file for restart read with XIOS 
     71   INTEGER, PUBLIC, PARAMETER :: NMETA = 10 
     72   CHARACTER(LEN=nf90_max_name), PUBLIC :: meta(NMETA) 
    7573!$AGRIF_END_DO_NOT_TREAT 
    76    ! 
    77    TYPE(RST_FIELD), PUBLIC, SAVE :: rst_wfields(max_rst_fields), rst_rfields(max_rst_fields) 
    7874   ! 
    7975   !! * Substitutions 
Note: See TracChangeset for help on using the changeset viewer.