From b10d463cac6841a6a140772507f4b9c06b0f75ac Mon Sep 17 00:00:00 2001 From: Quentin Rodier <quentin.rodier@meteo.fr> Date: Fri, 25 Jan 2019 13:34:55 +0100 Subject: [PATCH] Quentin 25/01/2019 : remove XASBL constant in turbulence scheme : not used any more --- src/MNH/ini_cturb.f90 | 9 +-------- src/MNH/modd_cturb.f90 | 2 +- 2 files changed, 2 insertions(+), 9 deletions(-) diff --git a/src/MNH/ini_cturb.f90 b/src/MNH/ini_cturb.f90 index 090f8ad30..245dfa063 100644 --- a/src/MNH/ini_cturb.f90 +++ b/src/MNH/ini_cturb.f90 @@ -64,6 +64,7 @@ END MODULE MODI_INI_CTURB !! V.Masson 13/11/02 XALPSBL and XASBL !! 05/06 Remove KEPS !! Q.Rodier 01/19 XCED replaced by XCEDIS in read_exsegn.f90 and ini_modeln.f90 +!! Remove XASBL (not used) !! -------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -213,14 +214,6 @@ XCPR3= XCPR2 ! used only for the Schmidt number for scalar variables XCPR4= XCPR2 XCPR5= XCPR2 ! -! 2.4 Value related to the TKE universal function within SBL -! -! -XASBL = 0.5*( XALPSBL**(3./2.)*XKARMAN*XCED + XKARMAN/SQRT(XALPSBL)/XCMFS ) -! Redelsperger et al 2001 -! -! -! ! 3. MINIMUM VALUES ! -------------- ! diff --git a/src/MNH/modd_cturb.f90 b/src/MNH/modd_cturb.f90 index 6992865f2..db23e955b 100644 --- a/src/MNH/modd_cturb.f90 +++ b/src/MNH/modd_cturb.f90 @@ -38,6 +38,7 @@ !! Original 08/08/94 !! Nov 06, 2002 (V. Masson) add XALPSBL and XASBL !! May 06 Remove EPS +!! Jan 2019 (Q. Rodier) Remove XASBL !---------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -74,7 +75,6 @@ REAL,SAVE :: XLINI ! initial value for BL mixing length REAL,SAVE :: XLINF ! to prevent division by zero in the BL algorithm ! REAL,SAVE :: XALPSBL ! constant linking TKE and friction velocity in the SBL -REAL,SAVE :: XASBL ! constant used to define mixing length in the SBL ! REAL,SAVE :: XCEP ! Constant for wind pressure-correlations REAL,SAVE :: XA0 ! Constant a0 for wind pressure-correlations -- GitLab