- Timestamp:
- 2021-12-08T10:47:44+01:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage3/src/TOP/PISCES/SED/sedrst.F90
r11715 r15584 40 40 ! 41 41 CHARACTER(LEN=20) :: clkt ! ocean time-step define as a character 42 CHARACTER(LEN= 50):: clname ! trc output restart file name42 CHARACTER(LEN=100) :: clname ! trc output restart file name 43 43 CHARACTER(LEN=256) :: clpath ! full path to ocean output restart file 44 44 !!---------------------------------------------------------------------- … … 215 215 INTEGER :: ji, jj, jk, jn 216 216 REAL(wp), DIMENSION(1) :: zinfo 217 CHARACTER(len= 50) :: clname217 CHARACTER(len=100) :: clname 218 218 CHARACTER(len=20) :: cltra, name1 219 219 REAL(wp), DIMENSION(jpoce,jpksed) :: zdta
Note: See TracChangeset
for help on using the changeset viewer.