From 311f312ac776ec50e34f21f1de7c3c86f1ac95cd Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 20 Sep 2021 13:10:22 +0200
Subject: [PATCH] Philippe 20/09/2021: force value for PSSI (OUT variable) in
 all cases + initialize some variables to allow use of MPPDB_CHECK

---
 src/MNH/ice4_tendencies.f90 | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/MNH/ice4_tendencies.f90 b/src/MNH/ice4_tendencies.f90
index 5c86a1dd2..df8e68246 100644
--- a/src/MNH/ice4_tendencies.f90
+++ b/src/MNH/ice4_tendencies.f90
@@ -180,6 +180,7 @@ SUBROUTINE ICE4_TENDENCIES(KIB, KIE, KIT, KJB, KJE, KJT, KKB, KKE, KKT, KKL, &
 !          ------------
 !
 USE MODD_CST,            ONLY: XALPI,XBETAI,XCI,XCPV,XEPSILO,XGAMI,XLSTT,XMD,XMV,XP00,XRV,XTT
+USE MODD_PARAMETERS,     ONLY: XUNDEF
 USE MODD_PARAM_ICE,      ONLY: CSNOWRIMING
 USE MODD_RAIN_ICE_DESCR, ONLY: XLBDAS_MAX,XLBEXG,XLBEXH,XLBEXR,XLBEXS,XLBG,XLBH,XLBR,XLBS,XRTMIN
 USE MODD_RAIN_ICE_PARAM, ONLY: XSCFAC
@@ -568,6 +569,19 @@ IF(ISIZE>0) THEN
 #endif
   ENDDO
 !$acc end kernels
+  ELSE
+!$acc kernels
+    PSSI(:) = 0. !PSSI is an OUT variable. It must be set in this subroutine.
+!$acc end kernels
+    IF ( MPPDB_INITIALIZED ) THEN
+      !Variables not used but necessary for comparisons with MPPDB_CHECK
+!$acc kernels
+      ZKA(:) = XUNDEF
+      ZDV(:) = XUNDEF
+      ZAI(:) = XUNDEF
+      ZCJ(:) = XUNDEF
+!$acc end kernels
+    END IF
   ENDIF
   !
   !Cloud water split between high and low content part is done here
-- 
GitLab