- Timestamp:
- 2016-11-28T17:04:10+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90
r5836 r7351 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 ! … … 49 48 50 49 INTEGER :: nkstp ! current time step 51 52 53 50 54 51 !!gm to be moved from trdmxl_oce … … 73 70 74 71 !! * Substitutions 75 # include "domzgr_substitute.h90"76 72 # include "zdfddm_substitute.h90" 77 73 !!---------------------------------------------------------------------- … … 126 122 DO jj = 1,jpj 127 123 DO ji = 1,jpi 128 IF( jk - kmxln(ji,jj) < 0 ) wkx(ji,jj,jk) = fse3t(ji,jj,jk) * tmask(ji,jj,jk)124 IF( jk - kmxln(ji,jj) < 0 ) wkx(ji,jj,jk) = e3t_n(ji,jj,jk) * tmask(ji,jj,jk) 129 125 END DO 130 126 END DO … … 298 294 !! 299 295 !! ** Purpose : Compute and cumulate the mixed layer trends over an analysis 300 !! period, and write NetCDF (or dimg)outputs.296 !! period, and write NetCDF outputs. 301 297 !! 302 298 !! ** Method/usage : … … 349 345 REAL(wp), POINTER, DIMENSION(:,: ) :: ztmltot2, zsmltot2, ztmlres2, zsmlres2, ztmlatf2, zsmlatf2, ztmltrdm2, zsmltrdm2 350 346 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 347 !!---------------------------------------------------------------------- 356 348
Note: See TracChangeset
for help on using the changeset viewer.