- Timestamp:
- 2015-05-18T17:19:50+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r4990 r5282 123 123 !!---------------------------------------------------------------------- 124 124 ! 125 CALL iom_rstput( kt, nitrst, numrtw, 'rdttrc1', rdttrc (1) ) ! surfacepassive tracer time step125 CALL iom_rstput( kt, nitrst, numrtw, 'rdttrc1', rdttrc ) ! passive tracer time step 126 126 ! prognostic variables 127 127 ! -------------------- … … 186 186 IF(lwp) WRITE(numout,*) 'trc_rst_cal : read the TOP restart file for calendar' 187 187 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~' 188 189 IF ( jprstlib == jprstdimg ) THEN190 ! eventually read netcdf file (monobloc) for restarting on different number of processors191 ! if {cn_trcrst_in}.nc exists, then set jlibalt to jpnf90192 INQUIRE( FILE = TRIM(cn_trcrst_in)//'.nc', EXIST = llok )193 IF ( llok ) THEN ; jlibalt = jpnf90 ; ELSE ; jlibalt = jprstlib ; ENDIF194 ENDIF195 188 196 189 CALL iom_open( cn_trcrst_in, numrtr, kiolib = jlibalt ) … … 226 219 ELSE 227 220 ndastp = ndate0 - 1 ! ndate0 read in the namelist in dom_nam 228 adatrj = ( REAL( nittrc000-1, wp ) * rdt tra(1)) / rday221 adatrj = ( REAL( nittrc000-1, wp ) * rdt ) / rday 229 222 ! note this is wrong if time step has changed during run 230 223 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.