From 15ad8c0f9c736cce1fa1800b4ed211e06a954ea3 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Tue, 12 Sep 2023 10:28:44 +0200
Subject: [PATCH] Quentin 12/09/2023: bf of commit e43073f (NSPLIT name already
exist, it was changed to NTURBSPLIT) + XCEI is an array and is not read by
the NAMELIST, fix also the write issue of NAM_TURB on testprogs
---
src/common/turb/modd_turbn.F90 | 4 ++--
src/testprogs/turb_mnh/main_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 c089811f2..b4c173c55 100644
--- a/src/common/turb/modd_turbn.F90
+++ b/src/common/turb/modd_turbn.F90
@@ -188,7 +188,7 @@ NAMELIST/NAM_TURBn/XIMPL,CTURBLEN,CTURBDIM,LTURB_FLX,LTURB_DIAG, &
XALTHGRAD, XCLDTHOLD, XLINI, LHARAT, &
LPROJQITURB, LSMOOTH_PRANDTL, XMINSIGS, NTURBSPLIT, &
LCLOUDMODIFLM, CTURBLEN_CLOUD, &
- XCOEF_AMPL_SAT, XCEI_MIN, XCEI_MAX, XCEI
+ XCOEF_AMPL_SAT, XCEI_MIN, XCEI_MAX
!
!-------------------------------------------------------------------------------
!
@@ -422,7 +422,7 @@ ENDIF
!* 3. PRINTS
! ---------
!
-IF(IPRINT>=3) THEN
+IF(IPRINT>=1) THEN
WRITE(UNIT=KLUOUT,NML=NAM_TURBn)
ENDIF
!
diff --git a/src/testprogs/turb_mnh/main_turb.F90 b/src/testprogs/turb_mnh/main_turb.F90
index 7bc99c84a..4dfdf8725 100644
--- a/src/testprogs/turb_mnh/main_turb.F90
+++ b/src/testprogs/turb_mnh/main_turb.F90
@@ -294,7 +294,7 @@ JBLK2 = (NGPBLKS * (ITID+1)) / NTID
#endif
CALL TURB(PHYEX%CST, PHYEX%CSTURB, PHYEX%MISC%TBUCONF, PHYEX%TURBN, PHYEX%NEBN, D, TLES,&
& PHYEX%MISC%KRR, PHYEX%MISC%KRRL, PHYEX%MISC%KRRI, PHYEX%MISC%HLBCX, PHYEX%MISC%HLBCY, PHYEX%MISC%KGRADIENTS, PHYEX%MISC%KHALO,&
- & PHYEX%TURBN%NSPLIT,PHYEX%TURBN%LCLOUDMODIFLM, PHYEX%MISC%KSV, PHYEX%MISC%KSV_LGBEG, PHYEX%MISC%KSV_LGEND, &
+ & PHYEX%TURBN%NTURBSPLIT,PHYEX%TURBN%LCLOUDMODIFLM, PHYEX%MISC%KSV, PHYEX%MISC%KSV_LGBEG, PHYEX%MISC%KSV_LGEND, &
& PHYEX%MISC%KSV_LIMA_NR, PHYEX%MISC%KSV_LIMA_NS, PHYEX%MISC%KSV_LIMA_NG, PHYEX%MISC%KSV_LIMA_NH,&
& PHYEX%MISC%O2D, PHYEX%MISC%ONOMIXLG, PHYEX%MISC%OFLAT, PHYEX%MISC%OCOUPLES, PHYEX%MISC%OBLOWSNOW,PHYEX%MISC%OIBM,&
& PHYEX%MISC%OFLYER, PHYEX%MISC%OCOMPUTE_SRC, PHYEX%MISC%PRSNOW, &
--
GitLab