From d6c84a8085ef2610ec39272d887c35bc6fd200e3 Mon Sep 17 00:00:00 2001
From: VIE Benoit <vie@sxphynh>
Date: Tue, 14 Nov 2023 19:08:23 +0100
Subject: [PATCH] limit rain self collection until checks for concentrations
are added to the time-splitting loop
---
src/common/micro/mode_lima_tendencies.F90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/common/micro/mode_lima_tendencies.F90 b/src/common/micro/mode_lima_tendencies.F90
index eb06801c4..c28fb2b22 100644
--- a/src/common/micro/mode_lima_tendencies.F90
+++ b/src/common/micro/mode_lima_tendencies.F90
@@ -576,6 +576,8 @@ IF ((.NOT. LKHKO) .AND. NMOM_R.GE.2) THEN
P_CR_SCBU )
!
P_CR_SCBU(:) = P_CR_SCBU(:) * ZPF1D(:)
+ ! process limited until checks on concentrations are added to the time-splitting loop
+ P_CR_SCBU(:) = MAX(P_CR_SCBU(:),-0.5*PCRT(:)/PTSTEP)
!
PA_CR(:) = PA_CR(:) + P_CR_SCBU(:)
END IF
--
GitLab