Changeset 13954 for NEMO/branches/2020/r13916_ticket2377/src/OCE/IOM
- Timestamp:
- 2020-12-01T20:41:49+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/r13916_ticket2377/src/OCE/IOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r13916_ticket2377/src/OCE/IOM/iom.F90
r13747 r13954 537 537 i = i + 1; fields(i)%vname="hbli"; fields(i)%grid="grid_N" 538 538 i = i + 1; fields(i)%vname="wn"; fields(i)%grid="grid_N_3D" 539 i = i + 1; fields(i)%vname="a_fwb"; fields(i)%grid="grid_scalar" 539 540 540 541 IF( i-1 > max_rst_fields) THEN -
NEMO/branches/2020/r13916_ticket2377/src/OCE/IOM/iom_def.F90
r13558 r13954 59 59 END TYPE file_descriptor 60 60 TYPE(file_descriptor), DIMENSION(jpmax_files), PUBLIC :: iom_file !: array containing the info for all opened files 61 INTEGER, PARAMETER, PUBLIC :: max_rst_fields = 9 5!: maximum number of restart variables defined in iom_set_rst_vars61 INTEGER, PARAMETER, PUBLIC :: max_rst_fields = 96 !: maximum number of restart variables defined in iom_set_rst_vars 62 62 TYPE, PUBLIC :: RST_FIELD 63 63 CHARACTER(len=30) :: vname = "NO_NAME" ! names of variables in restart file
Note: See TracChangeset
for help on using the changeset viewer.