New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
par_abl.F90 in NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/ABL – NEMO

source: NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/ABL/par_abl.F90 @ 13220

Last change on this file since 13220 was 13220, checked in by orioltp, 4 years ago

dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation: updating from trunk r13218

File size: 6.4 KB
Line 
1MODULE par_abl
2   !!======================================================================
3   !!                        ***  par_abl  ***
4   !! ABL :   set the Atmospheric Boundary Layer parameters
5   !!======================================================================
6   !! History :  4.0  !  2019-03  (F. Lemarié & G. Samson)  Original code
7   !!----------------------------------------------------------------------
8   USE par_kind          ! kind parameters
9   USE par_oce           ! to access horizontal domain size & mpp decomposition
10
11   IMPLICIT NONE
12   PUBLIC
13
14   !!---------------------------------------------------------------------
15   !! Active tracer parameters
16   !!---------------------------------------------------------------------
17   INTEGER , PUBLIC, PARAMETER ::   jptq   = 2     !: Number of active tracers (=2, i.e. T & q )
18   INTEGER , PUBLIC, PARAMETER ::   jp_ta  = 1     !: indice for temperature
19   INTEGER , PUBLIC, PARAMETER ::   jp_qa  = 2     !: indice for humidity
20   INTEGER , PUBLIC, PARAMETER ::   jptime = 2     !: number of time indices stored in memory
21
22   !!---------------------------------------------------------------------
23   !! namABL Namelist options 
24   !!---------------------------------------------------------------------   
25   INTEGER , PUBLIC            ::   nn_amxl        !: mixing length option
26   INTEGER , PUBLIC            ::   nn_dyn_restore !: restoring option for dynamical ABL variables
27   LOGICAL , PUBLIC            ::   ln_geos_winds  !: large-scale restoring of ABL winds toward geostrophic winds
28   LOGICAL , PUBLIC            ::   ln_hpgls_frc   !: forcing of ABL winds by large-scale pressure gradient
29   LOGICAL , PUBLIC            ::   ln_smth_pblh   !: smoothing of atmospheric PBL height
30   !LOGICAL , PUBLIC            ::   ln_topbc_neumann = .FALSE.  !: idealised testcases only
31
32   LOGICAL           , PUBLIC  ::   ln_rstart_abl    !: (de)activate abl restart
33   CHARACTER(len=256), PUBLIC  ::   cn_ablrst_in     !: suffix of abl restart name (input)
34   CHARACTER(len=256), PUBLIC  ::   cn_ablrst_out    !: suffix of abl restart name (output)
35   CHARACTER(len=256), PUBLIC  ::   cn_ablrst_indir  !: abl restart input directory
36   CHARACTER(len=256), PUBLIC  ::   cn_ablrst_outdir !: abl restart output directory
37
38   !!---------------------------------------------------------------------
39   !! ABL parameters for TKE turbulent closure
40   !!---------------------------------------------------------------------
41   REAL(wp), PUBLIC, PARAMETER ::   tke_min   = 1.e-6_wp          !: minimum TKE
42   REAL(wp), PUBLIC, PARAMETER ::   avm_bak   = 1.e-4_wp          !: background viscosity
43   REAL(wp), PUBLIC, PARAMETER ::   avt_bak   = 1.e-5_wp          !: background diffusion
44   REAL(wp), PUBLIC, PARAMETER ::   itvref    = 1.0_wp / 288.0_wp !: inverse of reference virtual temperature     
45   !++ TKE closure parameters
46   REAL(wp), PUBLIC, PARAMETER ::   rn_phimax = (1._wp - 2.2_wp) / 2.2_wp !: maximum value for Ri * mxl^2 * N^2 / tke in phiz computation
47   REAL(wp), PUBLIC, PARAMETER ::   rn_Cek    = 258._wp                   !: Ekman constant for Richardson number
48   REAL(wp), PUBLIC, PARAMETER ::   rn_epssfc = 1._wp / ( 1._wp + 2.8_wp * 2.8_wp )
49   REAL(wp), PUBLIC            ::   rn_Ceps                       !: namelist parameter
50   REAL(wp), PUBLIC            ::   rn_Cm                         !: namelist parameter
51   REAL(wp), PUBLIC            ::   rn_Ct                         !: namelist parameter
52   REAL(wp), PUBLIC            ::   rn_Ce                         !: namelist parameter
53   REAL(wp), PUBLIC            ::   rn_Rod                        !: namelist parameter   
54   REAL(wp), PUBLIC            ::   rn_Sch   
55   REAL(wp), PUBLIC            ::   rn_Esfc
56   REAL(wp), PUBLIC            ::   rn_Lsfc
57   REAL(wp), PUBLIC            ::   mxl_min   
58   REAL(wp), PUBLIC            ::   rn_ldyn_min                   !: namelist parameter
59   REAL(wp), PUBLIC            ::   rn_ldyn_max                   !: namelist parameter 
60   REAL(wp), PUBLIC            ::   rn_ltra_min                   !: namelist parameter
61   REAL(wp), PUBLIC            ::   rn_ltra_max                   !: namelist parameter
62   REAL(wp), PUBLIC            ::   rn_Ric                        !: critical Richardson number
63
64   !!---------------------------------------------------------------------
65   !! ABL parameters for the vertical profile of the restoring term
66   !!---------------------------------------------------------------------
67   REAL(wp), PUBLIC, PARAMETER ::   jp_bmin    =   0.5_wp 
68   REAL(wp), PUBLIC, PARAMETER ::   jp_bmax    =   1.5_wp
69   REAL(wp), PUBLIC            ::   jp_alp0_tra
70   REAL(wp), PUBLIC            ::   jp_alp1_tra   
71   REAL(wp), PUBLIC            ::   jp_alp2_tra   
72   REAL(wp), PUBLIC            ::   jp_alp3_tra   
73   REAL(wp), PUBLIC            ::   jp_alp0_dyn
74   REAL(wp), PUBLIC            ::   jp_alp1_dyn   
75   REAL(wp), PUBLIC            ::   jp_alp2_dyn   
76   REAL(wp), PUBLIC            ::   jp_alp3_dyn 
77   REAL(wp), PUBLIC            ::   jp_pblh_min
78   REAL(wp), PUBLIC            ::   jp_pblh_max     
79   ! parameter for the semi-implicit treatment of Coriolis term 
80   REAL(wp), PUBLIC, PARAMETER ::   gamma_Cor  = 0.55_wp
81   ! ABL timestep
82   REAL(wp), PUBLIC            :: rDt_abl
83
84   !!---------------------------------------------------------------------
85   !! ABL parameters for the diagnostic mixing length option nn_amxl = 1
86   !!---------------------------------------------------------------------   
87   REAL(wp), PUBLIC, PARAMETER ::   amx1 =    4.3995604393911742_wp
88   REAL(wp), PUBLIC, PARAMETER ::   amx2 =  -18.159100102732943_wp
89   REAL(wp), PUBLIC, PARAMETER ::   amx3 =   40.241226956967239_wp
90   REAL(wp), PUBLIC, PARAMETER ::   amx4 =  -43.603409583363678_wp
91   REAL(wp), PUBLIC, PARAMETER ::   amx5 =   17.121715347554314_wp
92   REAL(wp), PUBLIC, PARAMETER ::   bmx1 =  -16.262675447730114_wp
93   REAL(wp), PUBLIC, PARAMETER ::   bmx2 =   85.088728134110781_wp
94   REAL(wp), PUBLIC, PARAMETER ::   bmx3 = -193.46548261141191_wp
95   REAL(wp), PUBLIC, PARAMETER ::   bmx4 =  196.71548261141191_wp
96   REAL(wp), PUBLIC, PARAMETER ::   bmx5 =  -72.076052686380677_wp 
97
98   !!----------------------------------------------------------------------
99   !! NEMO/ABL 4.0 , NEMO Consortium (2018)
100   !! $Id: sbc_oce.F90 10882 2019-04-17 15:40:17Z clem $
101   !! Software governed by the CeCILL license (see ./LICENSE)
102   !!======================================================================
103END MODULE par_abl
Note: See TracBrowser for help on using the repository browser.