- Timestamp:
- 2017-06-25T12:26:32+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r7753 r8215 11 11 !! zdf_mxl : Compute the turbocline and mixed layer depths. 12 12 !!---------------------------------------------------------------------- 13 USE oce ! ocean dynamics and tracers variables 14 USE dom_oce ! ocean space and time domain variables 15 USE trc_oce, ONLY: l_offline ! ocean space and time domain variables 16 USE zdf_oce ! ocean vertical physics 17 USE in_out_manager ! I/O manager 18 USE prtctl ! Print control 19 USE phycst ! physical constants 20 USE iom ! I/O library 21 USE lib_mpp ! MPP library 22 USE wrk_nemo ! work arrays 23 USE timing ! Timing 13 USE oce ! ocean dynamics and tracers variables 14 USE dom_oce ! ocean space and time domain variables 15 USE trc_oce , ONLY: l_offline ! ocean space and time domain variables 16 USE zdf_oce ! ocean vertical physics 17 USE in_out_manager ! I/O manager 18 USE prtctl ! Print control 19 USE phycst ! physical constants 20 USE iom ! I/O library 21 USE lib_mpp ! MPP library 22 USE timing ! Timing 24 23 25 24 IMPLICIT NONE 26 25 PRIVATE 27 26 28 PUBLIC zdf_mxl ! called by step.F9027 PUBLIC zdf_mxl ! called by zdfphy.F90 29 28 30 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: nmln !: number of level in the mixed layer (used by TOP)31 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: hmld !: mixing layer depth (turbocline) [m] 32 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: hmlp !: mixed layer depth (rho=rho0+zdcrit) [m] 33 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: hmlpt !: depth of the last T-point inside the mixed layer [m] 29 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: nmln !: number of level in the mixed layer (used by LDF, ZDF, TRD, TOP) 30 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: hmld !: mixing layer depth (turbocline) [m] (used by TOP) 31 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: hmlp !: mixed layer depth (rho=rho0+zdcrit) [m] (used by LDF) 32 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: hmlpt !: depth of the last T-point inside the mixed layer [m] (used by LDF) 34 33 35 34 REAL(wp), PUBLIC :: rho_c = 0.01_wp !: density criterion for mixed layer depth … … 37 36 38 37 !!---------------------------------------------------------------------- 39 !! NEMO/OPA 4.0 , NEMO Consortium (201 1)38 !! NEMO/OPA 4.0 , NEMO Consortium (2017) 40 39 !! $Id$ 41 40 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 80 79 INTEGER :: iikn, iiki, ikt ! local integer 81 80 REAL(wp) :: zN2_c ! local scalar 82 INTEGER, POINTER, DIMENSION(:,:) :: imld ! 2D workspace81 INTEGER, DIMENSION(jpi,jpj) :: imld ! 2D workspace 83 82 !!---------------------------------------------------------------------- 84 83 ! 85 84 IF( nn_timing == 1 ) CALL timing_start('zdf_mxl') 86 85 ! 87 CALL wrk_alloc( jpi,jpj, imld )88 89 86 IF( kt == nit000 ) THEN 90 87 IF(lwp) WRITE(numout,*) … … 144 141 IF(ln_ctl) CALL prt_ctl( tab2d_1=REAL(nmln,wp), clinfo1=' nmln : ', tab2d_2=hmlp, clinfo2=' hmlp : ', ovlap=1 ) 145 142 ! 146 CALL wrk_dealloc( jpi,jpj, imld )147 !148 143 IF( nn_timing == 1 ) CALL timing_stop('zdf_mxl') 149 144 !
Note: See TracChangeset
for help on using the changeset viewer.