From 0ca58a8ef64a7b22fbcd5c6ce4a6131d9992dd7c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Vi=C3=A9?= <benoit.vie@meteo.fr>
Date: Wed, 18 May 2022 16:37:30 +0200
Subject: [PATCH] add initialization of outputs in RDSF
---
src/MNH/lima_raindrop_shattering_freezing.f90 | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/MNH/lima_raindrop_shattering_freezing.f90 b/src/MNH/lima_raindrop_shattering_freezing.f90
index c64dca2e5..0bd4f18e5 100644
--- a/src/MNH/lima_raindrop_shattering_freezing.f90
+++ b/src/MNH/lima_raindrop_shattering_freezing.f90
@@ -93,8 +93,12 @@ REAL, DIMENSION(SIZE(PRRT)) :: ZINTG_RAIN ! incomplete gamma func
REAL, DIMENSION(SIZE(PRRT)) :: ZNI_RDSF,ZRI_RDSF ! RDSF rates
!
!-------------------------------------------------------------------------------
+P_RI_RDSF(:)=0.
+P_CI_RDSF(:)=0.
+!
GRDSF(:) = LRDSF .AND. LDCOMPUTE .AND. (PRIT(:)>XRTMIN(4)) .AND. (PRRT(:)>XRTMIN(3)) &
.AND. (PCIT(:)>XCTMIN(4)) .AND. (PCRT(:)>XCTMIN(3))
+
IRDSF = COUNT( GRDSF(:) )
!
IF (IRDSF > 0) THEN
--
GitLab