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.
Changeset 13214 for NEMO/trunk/src/ABL/par_abl.F90 – NEMO

Ignore:
Timestamp:
2020-07-02T11:09:01+02:00 (4 years ago)
Author:
smasson
Message:

trunk: Mid-year merge, merge back dev_r12563_ASINTER-06_ABL_improvement

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ABL/par_abl.F90

    r12814 r13214  
    2828   LOGICAL , PUBLIC            ::   ln_hpgls_frc   !: forcing of ABL winds by large-scale pressure gradient  
    2929   LOGICAL , PUBLIC            ::   ln_smth_pblh   !: smoothing of atmospheric PBL height  
     30   !LOGICAL , PUBLIC            ::   ln_topbc_neumann = .FALSE.  !: idealised testcases only 
    3031 
    31    LOGICAL           , PUBLIC ::   ln_rstart_abl    !: (de)activate abl restart 
    32    CHARACTER(len=256), PUBLIC ::   cn_ablrst_in     !: suffix of abl restart name (input) 
    33    CHARACTER(len=256), PUBLIC ::   cn_ablrst_out    !: suffix of abl restart name (output) 
    34    CHARACTER(len=256), PUBLIC ::   cn_ablrst_indir  !: abl restart input directory 
    35    CHARACTER(len=256), PUBLIC ::   cn_ablrst_outdir !: abl restart output directory 
     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 
    3637 
    3738   !!--------------------------------------------------------------------- 
     
    4647   REAL(wp), PUBLIC, PARAMETER ::   rn_Cek    = 258._wp                   !: Ekman constant for Richardson number  
    4748   REAL(wp), PUBLIC, PARAMETER ::   rn_epssfc = 1._wp / ( 1._wp + 2.8_wp * 2.8_wp ) 
    48    REAL(wp), PUBLIC            ::   rn_ceps                       !: namelist parameter 
    49    REAL(wp), PUBLIC            ::   rn_cm                         !: namelist parameter 
    50    REAL(wp), PUBLIC            ::   rn_ct                         !: namelist parameter 
    51    REAL(wp), PUBLIC            ::   rn_ce                         !: namelist parameter  
     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  
    5253   REAL(wp), PUBLIC            ::   rn_Rod                        !: namelist parameter    
    5354   REAL(wp), PUBLIC            ::   rn_Sch     
     55   REAL(wp), PUBLIC            ::   rn_Esfc 
     56   REAL(wp), PUBLIC            ::   rn_Lsfc 
    5457   REAL(wp), PUBLIC            ::   mxl_min     
    5558   REAL(wp), PUBLIC            ::   rn_ldyn_min                   !: namelist parameter 
Note: See TracChangeset for help on using the changeset viewer.