From 746cfa7847515073cb0cd153d432f72e7c89cc8e Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Mon, 16 Oct 2023 16:16:26 +0200
Subject: [PATCH] Quentin 16/10/2023: PHYEX fix name of CTURBLEN, was HM21
instead of ADAP
---
src/common/turb/modd_turbn.F90 | 4 ++--
src/common/turb/mode_ini_turb.F90 | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/common/turb/modd_turbn.F90 b/src/common/turb/modd_turbn.F90
index 9c485f2c5..a3f2c6e9d 100644
--- a/src/common/turb/modd_turbn.F90
+++ b/src/common/turb/modd_turbn.F90
@@ -415,9 +415,9 @@ ENDIF
!
IF(LLCHECK) THEN
CALL CHECK_NAM_VAL_CHAR(KLUOUT, 'CTURBDIM', CTURBDIM, '1DIM', '3DIM')
- CALL CHECK_NAM_VAL_CHAR(KLUOUT, 'CTURBLEN', CTURBLEN, 'DELT', 'BL89', 'RM17', 'DEAR', 'BLKR', 'ADAP')
+ CALL CHECK_NAM_VAL_CHAR(KLUOUT, 'CTURBLEN', CTURBLEN, 'DELT', 'BL89', 'RM17', 'DEAR', 'BLKR', 'HM21')
CALL CHECK_NAM_VAL_CHAR(KLUOUT, 'CTOM', CTOM, 'NONE', 'TM06')
- CALL CHECK_NAM_VAL_CHAR(KLUOUT, 'CTURBLEN_CLOUD', CTURBLEN_CLOUD, 'DELT', 'BL89', 'RM17', 'DEAR', 'BLKR', 'ADAP')
+ CALL CHECK_NAM_VAL_CHAR(KLUOUT, 'CTURBLEN_CLOUD', CTURBLEN_CLOUD, 'DELT', 'BL89', 'RM17', 'DEAR', 'BLKR', 'HM21')
ENDIF
!
diff --git a/src/common/turb/mode_ini_turb.F90 b/src/common/turb/mode_ini_turb.F90
index fc70cfaf9..fb860ba83 100644
--- a/src/common/turb/mode_ini_turb.F90
+++ b/src/common/turb/mode_ini_turb.F90
@@ -82,7 +82,7 @@ IF(XCED == XUNDEF) THEN
! Schmidt-Schumann (1989) = 0.845
! Cheng-Canuto-Howard (2002) = 0.845
! Rodier, Masson, Couvreux, Paci (2017) = 0.34
- IF(CTURBLEN=='RM17' .OR. CTURBLEN=='ADAP') THEN
+ IF(CTURBLEN=='RM17' .OR. CTURBLEN=='HM21') THEN
XCED=0.34
ELSE
IF(HPROGRAM=='AROME') THEN
--
GitLab