From d37dd1f26677d65c6e3a23aed1be70adc4b29110 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Riette?= <sebastien.riette@meteo.fr>
Date: Wed, 20 Apr 2022 14:38:17 +0200
Subject: [PATCH] S. Riette 20/4/2022 Bugfix to run STAT cloud scheme and
LOSIGMAS=F
---
docs/TODO | 1 -
src/arome/ext/apl_arome.F90 | 20 ++++++++++++++++----
2 files changed, 16 insertions(+), 5 deletions(-)
diff --git a/docs/TODO b/docs/TODO
index 65478ac76..46bf4632a 100644
--- a/docs/TODO
+++ b/docs/TODO
@@ -45,7 +45,6 @@ Pb identifiés à corriger plus tard:
=> Ã corriger
- seules quelques options sont testées avec les cas test (par exemple, il faudrait tester RMC01 mais
l'option n'est pas remontée en namelist)
- - les options CMF_CLOUD='STAT' et LOSIGAMS=.FALSE. semblent cassées en 48 original
- arome/ini_cmfshall devrait s'appeler ini_param_mfshall
- th_r_from_thl_rt appelée partout, il faudrait limiter à OTEST
- doute sur le codage de MODD_PRECISION
diff --git a/src/arome/ext/apl_arome.F90 b/src/arome/ext/apl_arome.F90
index 6ba354755..66b261ad8 100644
--- a/src/arome/ext/apl_arome.F90
+++ b/src/arome/ext/apl_arome.F90
@@ -1410,10 +1410,16 @@ IF (LMICRO.OR.LTURB.OR.LLMSE.OR.LKFBCONV) THEN
ENDIF
!initialise convective mas flux for subgrid condensation coming
!from previous time step convection scheme
- IF ( LKFBCONV.AND.LOSUBG_COND.AND..NOT.LOSIGMAS) THEN
- DO JLEV = 1, KLEV
- ZMFM_(KIDIA:KFDIA,JLEV)=PSIGM(KIDIA:KFDIA,JLEV)
- ENDDO
+ IF (LOSUBG_COND.AND..NOT.LOSIGMAS) THEN
+ IF (LKFBCONV) THEN
+ DO JLEV = 1, KLEV
+ ZMFM_(KIDIA:KFDIA,JLEV)=PSIGM(KIDIA:KFDIA,JLEV)
+ ENDDO
+ ELSE
+ DO JLEV = 1, KLEV
+ ZMFM_(KIDIA:KFDIA,JLEV)=0._JPRB
+ ENDDO
+ ENDIF
ENDIF
!!! initialisation des variables d etat MNH �t
@@ -1593,6 +1599,12 @@ IF (LMICRO) THEN
ENDDO
ENDIF
PEZDIAG(KIDIA:KFDIA,1:KLEV,1:3)=0._JPRB
+ ELSE
+ DO JLEV = 1, KLEV
+ ZRC_MF_(KIDIA:KFDIA,JLEV)=0._JPRB
+ ZRI_MF_(KIDIA:KFDIA,JLEV)=0._JPRB
+ ZCF_MF_(KIDIA:KFDIA,JLEV)=0._JPRB
+ ENDDO
ENDIF
IF (MOD(KSTEP+1,NPRINTFR)==0) THEN
--
GitLab