- Timestamp:
- 2017-10-11T13:03:17+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90
r7646 r8612 46 46 !$AGRIF_DO_NOT_TREAT 47 47 INTEGER, PUBLIC :: iom_open_init = 0 !: used to initialize iom_file(:)%nfid to 0 48 !XIOS read restart 49 LOGICAL, PUBLIC :: lxios_read !: read single file restart using XIOS 50 LOGICAL, PUBLIC :: lxios_sini = .FALSE. ! is restart in a single file 51 LOGICAL, PUBLIC :: lxios_set = .FALSE. 48 52 49 53 TYPE, PUBLIC :: file_descriptor … … 66 70 END TYPE file_descriptor 67 71 TYPE(file_descriptor), DIMENSION(jpmax_files), PUBLIC :: iom_file !: array containing the info for all opened files 72 73 INTEGER, PARAMETER, PUBLIC :: max_rst_fields = 95 74 ! CHARACTER(len=30),DIMENSION(max_rst_fields), PUBLIC :: rst_fields ! names of variables in restart file 75 76 TYPE, PUBLIC :: RST_FIELD 77 CHARACTER(len=30) :: vname ! names of variables in restart file 78 CHARACTER(len=30) :: grid 79 END TYPE RST_FIELD 80 TYPE(RST_FIELD), PUBLIC :: rst_fields(max_rst_fields) 81 68 82 !$AGRIF_END_DO_NOT_TREAT 69 83
Note: See TracChangeset
for help on using the changeset viewer.