- Timestamp:
- 2015-12-15T10:46:14+01:00 (8 years ago)
- Location:
- branches/2015/dev_CMCC_merge_2015/NEMOGCM/NEMO/OPA_SRC/TRD
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_CMCC_merge_2015/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90
r5836 r6051 30 30 USE zdfddm ! ocean vertical physics: double diffusion 31 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 32 USE diadimg ! dimg direct access file format output33 32 USE trdmxl_rst ! restart for diagnosing the ML trends 34 33 ! … … 298 297 !! 299 298 !! ** Purpose : Compute and cumulate the mixed layer trends over an analysis 300 !! period, and write NetCDF (or dimg)outputs.299 !! period, and write NetCDF outputs. 301 300 !! 302 301 !! ** Method/usage : … … 349 348 REAL(wp), POINTER, DIMENSION(:,: ) :: ztmltot2, zsmltot2, ztmlres2, zsmlres2, ztmlatf2, zsmlatf2, ztmltrdm2, zsmltrdm2 350 349 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztmltrd2, zsmltrd2 ! only needed for mean diagnostics 351 #if defined key_dimgout352 INTEGER :: iyear,imon,iday353 CHARACTER(LEN=80) :: cltext, clmode354 #endif355 350 !!---------------------------------------------------------------------- 356 351 -
branches/2015/dev_CMCC_merge_2015/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90
r5341 r6051 62 62 WRITE(numout,*) 63 63 SELECT CASE ( jprstlib ) 64 CASE ( jprstdimg ) ; WRITE(numout,*) ' open ocean restart_mxl binary file: '//clname65 64 CASE DEFAULT ; WRITE(numout,*) ' open ocean restart_mxl NetCDF file: '//clname 66 65 END SELECT … … 147 146 clpath = TRIM(cn_ocerst_indir) 148 147 IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 149 150 IF ( jprstlib == jprstdimg ) THEN151 ! eventually read netcdf file (monobloc) for restarting on different number of processors152 ! if {cn_trdrst_in}.nc exists, then set jlibalt to jpnf90153 INQUIRE( FILE = TRIM(clpath)//TRIM(cn_trdrst_in)//'.nc', EXIST = llok )154 IF ( llok ) THEN ; jlibalt = jpnf90155 ELSE ; jlibalt = jprstlib156 ENDIF157 ENDIF158 159 148 CALL iom_open( TRIM(clpath)//TRIM(cn_trdrst_in), inum, kiolib = jlibalt ) 160 149 -
branches/2015/dev_CMCC_merge_2015/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90
r5836 r6051 37 37 38 38 PUBLIC trd_tra ! called by all tra_... modules 39 40 REAL(wp) :: r2dt ! time-step, = 2 rdttra except at nit000 (=rdttra) if neuler=041 39 42 40 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: trdtx, trdty, trdt ! use to store the temperature trends … … 229 227 !!---------------------------------------------------------------------- 230 228 231 IF( neuler == 0 .AND. kt == nit000 ) THEN ; r2dt = rdt ! = rdt ra(restart with Euler time stepping)232 ELSEIF( kt <= nit000 + 1) THEN ; r2dt = 2. * rdt ! = 2 rdt tra(leapfrog)229 IF( neuler == 0 .AND. kt == nit000 ) THEN ; r2dt = rdt ! = rdt (restart with Euler time stepping) 230 ELSEIF( kt <= nit000 + 1) THEN ; r2dt = 2. * rdt ! = 2 rdt (leapfrog) 233 231 ENDIF 234 232 -
branches/2015/dev_CMCC_merge_2015/NEMOGCM/NEMO/OPA_SRC/TRD/trdvor.F90
r5836 r6051 85 85 !! 86 86 !! ** Purpose : computation of cumulated trends over analysis period 87 !! and make outputs (NetCDF or DIMGformat)87 !! and make outputs (NetCDF format) 88 88 !!---------------------------------------------------------------------- 89 89 REAL(wp), DIMENSION(:,:,:), INTENT(inout) :: putrd, pvtrd ! U and V trends … … 318 318 !! 319 319 !! ** Purpose : computation of cumulated trends over analysis period 320 !! and make outputs (NetCDF or DIMGformat)320 !! and make outputs (NetCDF format) 321 321 !!---------------------------------------------------------------------- 322 322 INTEGER , INTENT(in ) :: kt ! time step
Note: See TracChangeset
for help on using the changeset viewer.