- Timestamp:
- 2017-05-26T12:09:41+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r7573_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90
r6491 r8079 51 51 !$AGRIF_DO_NOT_TREAT 52 52 INTEGER, PUBLIC :: iom_open_init = 0 !: used to initialize iom_file(:)%nfid to 0 53 !XIOS read restart 54 LOGICAL, PUBLIC :: lwxios !: read single file restart using XIOS 55 INTEGER, PUBLIC :: wxioso !: type of restart file when writing using XIOS 1 - single, 2 - multiple 56 57 53 58 54 59 TYPE, PUBLIC :: file_descriptor … … 70 75 END TYPE file_descriptor 71 76 TYPE(file_descriptor), DIMENSION(jpmax_files), PUBLIC :: iom_file !: array containing the info for all opened files 77 78 INTEGER, PARAMETER, PUBLIC :: max_rst_fields = 85 79 80 81 TYPE, PUBLIC :: RST_FIELD 82 CHARACTER(len=30) :: vname ! names of variables in restart file 83 CHARACTER(len=30) :: grid 84 END TYPE RST_FIELD 85 TYPE(RST_FIELD), PUBLIC :: rst_fields(max_rst_fields) 86 ! values needed to set correctlyfiles in reast file when using XIOS for writing 72 87 !$AGRIF_END_DO_NOT_TREAT 73 74 88 !!===================================================================== 75 89 END MODULE iom_def
Note: See TracChangeset
for help on using the changeset viewer.