- Timestamp:
- 2018-02-28T17:23:20+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90
r9019 r9367 39 39 INTEGER, PARAMETER, PUBLIC :: jpmax_digits = 5 !: maximum number of digits for the cpu number in the file name 40 40 41 41 42 !$AGRIF_DO_NOT_TREAT 42 43 INTEGER, PUBLIC :: iom_open_init = 0 !: used to initialize iom_file(:)%nfid to 0 44 !XIOS write restart 45 LOGICAL, PUBLIC :: lwxios !: write single file restart using XIOS 46 INTEGER, PUBLIC :: nxioso !: type of restart file when writing using XIOS 1 - single, 2 - multiple 47 !XIOS read restart 48 LOGICAL, PUBLIC :: lrxios !: read single file restart using XIOS 49 LOGICAL, PUBLIC :: lxios_sini = .FALSE. ! is restart in a single file 50 LOGICAL, PUBLIC :: lxios_set = .FALSE. 51 52 43 53 44 54 TYPE, PUBLIC :: file_descriptor … … 62 72 END TYPE file_descriptor 63 73 TYPE(file_descriptor), DIMENSION(jpmax_files), PUBLIC :: iom_file !: array containing the info for all opened files 74 INTEGER, PARAMETER, PUBLIC :: max_rst_fields = 95 !: maximum number of restart variables defined in iom_set_rst_vars 75 TYPE, PUBLIC :: RST_FIELD 76 CHARACTER(len=30) :: vname = "NO_NAME" ! names of variables in restart file 77 CHARACTER(len=30) :: grid = "NO_GRID" 78 LOGICAL :: active =.FALSE. ! for restart write only: true - write field, false do not write field 79 END TYPE RST_FIELD 64 80 !$AGRIF_END_DO_NOT_TREAT 65 81 ! 82 TYPE(RST_FIELD), PUBLIC :: rst_wfields(max_rst_fields), rst_rfields(max_rst_fields) 83 ! 66 84 !!---------------------------------------------------------------------- 67 85 !! NEMO/OPA 3.3 , NEMO Consortium (2010)
Note: See TracChangeset
for help on using the changeset viewer.