Philippe 20/09/2021: force value for PSSI (OUT variable) in all cases +...

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

@@ -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