From a101a3605eca6dd1abc860cfbd511d0ecaf5f796 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Mon, 28 Feb 2022 15:51:56 +0100
Subject: [PATCH] Quentin 28/02/2022: Add HCLOUD arg in AROME call of turb for
sources_neg_correct
---
src/arome/ext/apl_arome.F90 | 2 +-
src/arome/ext/aro_turb_mnh.F90 | 5 +++--
2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/arome/ext/apl_arome.F90 b/src/arome/ext/apl_arome.F90
index 298f6c90d..69c5696f4 100644
--- a/src/arome/ext/apl_arome.F90
+++ b/src/arome/ext/apl_arome.F90
@@ -3055,7 +3055,7 @@ IF (LTURB) THEN
& PZZ=ZZZ_,PZZF=ZZZ_F_,&
& PZZTOP=ZZTOP_,PRHODJ=ZRHODJM__,PTHVREF=ZTHVREFM__,&
& PRHODREF=ZRHODREFM__,HINST_SFU='M',&
- & HMF_UPDRAFT=CMF_UPDRAFT,&
+ & HMF_UPDRAFT=CMF_UPDRAFT,HCLOUD=CMICRO,&
& PSFTH=ZSFTH_,PSFRV=ZSFRV_,&
& PSFSV=ZSFSVLIMA_,PSFU=ZSFU_,&
& PSFV=ZSFV_,PPABSM=ZPABSM__,&
diff --git a/src/arome/ext/aro_turb_mnh.F90 b/src/arome/ext/aro_turb_mnh.F90
index 9d34088e4..1125523b7 100644
--- a/src/arome/ext/aro_turb_mnh.F90
+++ b/src/arome/ext/aro_turb_mnh.F90
@@ -2,7 +2,7 @@
SUBROUTINE ARO_TURB_MNH( KKA,KKU,KKL,KLON,KLEV,KRR,KRRL,KRRI,KSV, &
KTCOUNT, KGRADIENTS, LDHARATU, PTSTEP, &
PZZ, PZZF, PZZTOP, &
- PRHODJ, PTHVREF,PRHODREF,HINST_SFU,HMF_UPDRAFT, &
+ PRHODJ, PTHVREF,PRHODREF,HINST_SFU,HMF_UPDRAFT,HCLOUD,&
PSFTH,PSFRV,PSFSV,PSFU,PSFV, &
PPABSM,PUM,PVM,PWM,PTKEM,PEPSM,PSVM,PSRCM, &
PTHM,PRM, &
@@ -101,6 +101,7 @@ INTEGER, INTENT(IN) :: KGRADIENTS ! Number of stored horizon
LOGICAL, INTENT(IN) :: LDHARATU ! HARATU scheme active
CHARACTER (LEN=4), INTENT(IN) :: HMF_UPDRAFT ! Type of mass flux scheme
+CHARACTER (LEN=4), INTENT(IN) :: HCLOUD ! Type of microphysical scheme
REAL, INTENT(IN) :: PTSTEP ! Time step
!
!
@@ -417,7 +418,7 @@ ENDDO
CALL TURB (KLEV+2,1,KKL,IMI, KRR, KRRL, KRRI, HLBCX, HLBCY, ISPLIT,IMI, &
& OTURB_FLX,OTURB_DIAG,OSUBG_COND,ORMC01, &
- & HTURBDIM,HTURBLEN,'NONE','NONE', &
+ & HTURBDIM,HTURBLEN,'NONE','NONE',HCLOUD, &
& ZIMPL, &
& 2*PTSTEP,ZTFILE, &
& ZDXX,ZDYY,ZDZZ,ZDZX,ZDZY,ZZZ, &
--
GitLab