Changeset 1492 for trunk/NEMO/OPA_SRC/ZDF/zdf_oce.F90
- Timestamp:
- 2009-07-17T11:48:07+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/ZDF/zdf_oce.F90
r1417 r1492 4 4 !! Ocean physics : define vertical mixing variables 5 5 !!===================================================================== 6 !! history : 1.0 ! 2002-06 (G. Madec) Original code 7 !! 3.2 ! 2009-07 (G.Madec) addition of avm 6 8 !!---------------------------------------------------------------------- 7 !! OPA 9.0 , LOCEAN-IPSL (2005) 8 !! $Id$ 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 10 10 !!---------------------------------------------------------------------- 11 !!---------------------------------------------------------------------- 12 !! zdf_init : initialization, namelist read, and parameters control 13 !!---------------------------------------------------------------------- 14 !! * Modules used 15 USE par_oce ! mesh and scale factors 11 USE par_oce ! ocean parameters 16 12 17 13 IMPLICIT NONE 18 14 PRIVATE 19 15 20 !! * Share Module variables21 LOGICAL, PARAMETER, PUBLIC :: & !:22 16 #if defined key_zdfcst || defined key_esopa 23 lk_zdfcst = .TRUE. !: constant vertical mixing flag17 LOGICAL, PARAMETER, PUBLIC :: lk_zdfcst = .TRUE. !: constant vertical mixing flag 24 18 #else 25 lk_zdfcst = .FALSE. !: constant vertical mixing flag19 LOGICAL, PARAMETER, PUBLIC :: lk_zdfcst = .FALSE. !: constant vertical mixing flag 26 20 #endif 27 LOGICAL, PUBLIC :: & !!! namzdf: vertical diffusion28 ln_zdfexp = .FALSE. , & !: explicit vertical diffusion scheme flag29 ln_zdfevd = .TRUE. , & !: convection: enhanced vertical diffusion flag30 ln_zdfnpc = .FALSE. !: convection: non-penetrative convection flag31 21 32 INTEGER, PUBLIC :: & !!: namzdf: vertical diffusion 33 n_zdfexp = 3 , & !: number of sub-time step (explicit time stepping) 34 n_evdm = 1 !: =0/1 flag to apply enhanced avm or not 35 36 REAL(wp), PUBLIC :: & !!: namzdf vertical diffusion 37 avm0 = 1.e-4_wp, & !: vertical eddy viscosity (m2/s) 38 avt0 = 1.e-5_wp, & !: vertical eddy diffusivity (m2/s) 39 avevd = 1._wp !: vertical eddy coeff. for enhanced vert. diff. (m2/s) 22 ! !!* namelist namzdf: vertical diffusion 23 LOGICAL , PUBLIC :: ln_zdfexp = .FALSE. !: explicit vertical diffusion scheme flag 24 LOGICAL , PUBLIC :: ln_zdfevd = .TRUE. !: convection: enhanced vertical diffusion flag 25 LOGICAL , PUBLIC :: ln_zdfnpc = .FALSE. !: convection: non-penetrative convection flag 26 INTEGER , PUBLIC :: n_zdfexp = 3 !: number of sub-time step (explicit time stepping) 27 INTEGER , PUBLIC :: n_evdm = 1 !: =0/1 flag to apply enhanced avm or not 28 REAL(wp), PUBLIC :: avm0 = 1.e-4_wp !: vertical eddy viscosity (m2/s) 29 REAL(wp), PUBLIC :: avt0 = 1.e-5_wp !: vertical eddy diffusivity (m2/s) 30 REAL(wp), PUBLIC :: avevd = 1._wp !: vertical eddy coeff. for enhanced vert. diff. (m2/s) 40 31 41 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) :: & !: 42 avmu, & !: vertical viscosity coeff. at uw-, vw-points 43 avmv, & !: vertical viscosity coeff. at uw-, vw-points 44 avt , & !: vertical diffusivity coeff. at w-point 45 avt_evd, & !: convection: enhanced vertical diffusivity coeff. at w-point 46 avmu_evd !: convection: enhanced vertical viscosity coeff. at w-point 32 REAL(wp), PUBLIC, DIMENSION (jpk) :: avmb, avtb !: background profile of avm and avt 33 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) :: avmu, avmv !: vertical viscosity coeff. at uw- & vw-points [m2/s] 34 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) :: avm , avt !: vertical viscosity & diffusivity coeff. at w-point [m2/s] 35 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) :: avt_evd !: enhanced vertical diffusivity coeff. at w-point [m2/s] 36 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) :: avmu_evd !: enhanced vertical viscosity coeff. at uw-point [m2/s] 47 37 #if defined key_zdftmx 48 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) :: av_tide, av_tide_itf !: Tidal mixing 38 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) :: av_tide !: Tidal mixing 39 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) :: av_tide_itf !: Tidal mixing in the Indonesian Through Flow 49 40 #endif 50 41 51 REAL(wp), PUBLIC, DIMENSION(jpk) :: & !: 52 avmb, avtb !: background profile of avm and avt 53 42 !!---------------------------------------------------------------------- 43 !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009) 44 !! $Id$ 45 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 54 46 !!====================================================================== 55 47 END MODULE zdf_oce
Note: See TracChangeset
for help on using the changeset viewer.