From 9b41518606aa02fa3e6500b3add6c7622ae55afd 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/PHYEX/turb/modd_turbn.f90 | 4 ++--
src/PHYEX/turb/mode_ini_turb.f90 | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/PHYEX/turb/modd_turbn.f90 b/src/PHYEX/turb/modd_turbn.f90
index 9c485f2c5..a3f2c6e9d 100644
--- a/src/PHYEX/turb/modd_turbn.f90
+++ b/src/PHYEX/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/PHYEX/turb/mode_ini_turb.f90 b/src/PHYEX/turb/mode_ini_turb.f90
index fc70cfaf9..fb860ba83 100644
--- a/src/PHYEX/turb/mode_ini_turb.f90
+++ b/src/PHYEX/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