Changeset 15709 for NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames
- Timestamp:
- 2022-02-18T10:13:46+01:00 (2 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames/src
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames/src/OCE/IOM/restart.F90
r15708 r15709 62 62 CHARACTER(LEN=100) :: clname ! ocean output restart file name 63 63 CHARACTER(lc) :: clpath ! full path to ocean output restart file 64 CHARACTER(LEN= 100):: clpname ! ocean output restart file name including prefix for AGRIF64 CHARACTER(LEN=52) :: clpname ! ocean output restart file name including prefix for AGRIF 65 65 CHARACTER(LEN=256) :: clinfo ! info character 66 66 !!---------------------------------------------------------------------- -
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames/src/TOP/TRP/trdmxl_trc_rst.F90
r15708 r15709 38 38 ! 39 39 CHARACTER(LEN=20) :: clkt ! ocean time-step deine as a character 40 CHARACTER(LEN= 100):: clname ! output restart file name40 CHARACTER(LEN=50) :: clname ! output restart file name 41 41 CHARACTER(LEN=256) :: clpath ! full path to restart file 42 42 CHARACTER (len=35) :: charout -
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_ext_filenames/src/TOP/TRP/trdtrc_oce.F90
r15708 r15709 20 20 LOGICAL :: ln_trdmxl_trc_instant !: flag to diagnose inst./mean ML trc trends 21 21 LOGICAL :: ln_trdmxl_trc_restart !: flag to restart mixed-layer trc diagnostics 22 CHARACTER(len= 100) :: cn_trdrst_trc_in!: suffix of pass. tracer restart name (input)23 CHARACTER(len= 100) :: cn_trdrst_trc_out!: suffix of pass. tracer restart name (output)22 CHARACTER(len=50) :: cn_trdrst_trc_in !: suffix of pass. tracer restart name (input) 23 CHARACTER(len=50) :: cn_trdrst_trc_out !: suffix of pass. tracer restart name (output) 24 24 LOGICAL, DIMENSION(:), ALLOCATABLE :: ln_trdtrc !: large trends diagnostic to write or not (namelist) 25 25 … … 60 60 !! Arrays used for diagnosing mixed-layer trends 61 61 !!--------------------------------------------------------------------- 62 CHARACTER(LEN= 100) :: clname_trc, ctrd_trc(jpltrd_trc+1,2)62 CHARACTER(LEN=80) :: clname_trc, ctrd_trc(jpltrd_trc+1,2) 63 63 64 64 INTEGER, ALLOCATABLE, SAVE, DIMENSION(:,:) :: &
Note: See TracChangeset
for help on using the changeset viewer.