Changeset 7023
- Timestamp:
- 2016-10-12T16:10:13+02:00 (8 years ago)
- Location:
- branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r7019 r7023 69 69 !! namelist variables 70 70 !!------------------- 71 CHARACTER(len= 80):: filtide !: Filename root for tidal input files71 CHARACTER(len=180) :: filtide !: Filename root for tidal input files 72 72 LOGICAL :: ln_bdytide_2ddta !: If true, read 2d harmonic data 73 73 LOGICAL :: ln_bdytide_conj !: If true, assume complex conjugate tidal data … … 79 79 INTEGER, POINTER, DIMENSION(:) :: nblen, nblenrim ! short cuts 80 80 INTEGER :: ios ! Local integer output status for namelist read 81 CHARACTER(len= 80):: clfile !: full file name for tidal input file81 CHARACTER(len=180) :: clfile !: full file name for tidal input file 82 82 REAL(wp),ALLOCATABLE, DIMENSION(:,:,:) :: dta_read !: work space to read in tidal harmonics data 83 83 REAL(wp), POINTER, DIMENSION(:,:) :: ztr, zti !: " " " " " " " " -
branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r7019 r7023 161 161 USE ioipsl 162 162 NAMELIST/namrun/ cn_ocerst_indir, cn_ocerst_outdir, nn_stocklist, ln_rst_list, & 163 nn_no , cn_exp , cn_ocerst_in, cn_ocerst_out, ln_rstart , nn_rstctl ,&163 & nn_no , cn_exp , cn_ocerst_in, cn_ocerst_out, ln_rstart , ln_rstdate, nn_rstctl, & 164 164 & nn_it000, nn_itend , nn_date0 , nn_time0 , nn_leapy , nn_istate , & 165 165 & nn_stock, nn_write , ln_mskland , ln_clobber , nn_chunksz, nn_euler , & … … 196 196 WRITE(numout,*) ' file prefix restart output cn_ocerst_out= ', cn_ocerst_out 197 197 WRITE(numout,*) ' restart output directory cn_ocerst_outdir= ', cn_ocerst_outdir 198 WRITE(numout,*) ' restart logical ln_rstart = ', ln_rstart 198 WRITE(numout,*) ' restart logical ln_rstart = ' , ln_rstart 199 WRITE(numout,*) ' datestamping of restarts ln_rstdate = ', ln_rstdate 199 200 WRITE(numout,*) ' start with forward time step nn_euler = ', nn_euler 200 201 WRITE(numout,*) ' control of time step nn_rstctl = ', nn_rstctl -
branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90
r7019 r7023 29 29 CHARACTER(lc) :: cn_ocerst_outdir !: restart output directory 30 30 LOGICAL :: ln_rstart !: start from (F) rest or (T) a restart file 31 LOGICAL :: ln_rstdate !: datestamping of restarts 31 32 LOGICAL :: ln_rst_list !: output restarts at list of times (T) or by frequency (F) 32 33 INTEGER :: nn_no !: job number -
branches/UKMO/dev_r6393_CO6_package_trunk/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r7019 r7023 27 27 USE in_out_manager ! I/O manager 28 28 USE iom ! I/O module 29 USE ioipsl, ONLY : ju2ymds ! for calendar 29 30 USE diurnal_bulk 30 31 … … 57 58 !!---------------------------------------------------------------------- 58 59 INTEGER, INTENT(in) :: kt ! ocean time-step 60 INTEGER :: iyear, imonth, iday 61 REAL (wp) :: zsec 59 62 !! 60 63 CHARACTER(LEN=20) :: clkt ! ocean time-step deine as a character … … 84 87 IF( kt == nitrst - 1 .OR. nstock == 1 .OR. ( kt == nitend .AND. .NOT. lrst_oce ) ) THEN 85 88 IF( nitrst <= nitend .AND. nitrst > 0 ) THEN 86 ! beware of the format used to write kt (default is i8.8, that should be large enough...) 87 IF( nitrst > 999999999 ) THEN ; WRITE(clkt, * ) nitrst 88 ELSE ; WRITE(clkt, '(i8.8)') nitrst 89 IF ( ln_rstdate ) THEN 90 CALL ju2ymds( fjulday + rdt / rday, iyear, imonth, iday, zsec ) 91 WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 92 ELSE 93 ! beware of the format used to write kt (default is i8.8, that should be large enough...) 94 IF( nitrst > 999999999 ) THEN ; WRITE(clkt, * ) nitrst 95 ELSE ; WRITE(clkt, '(i8.8)') nitrst 96 ENDIF 89 97 ENDIF 90 98 ! create the file
Note: See TracChangeset
for help on using the changeset viewer.