diff --git a/src/MNH/ice4_tendencies.f90 b/src/MNH/ice4_tendencies.f90 index 5c86a1dd2b06584c0cb7a011829eeff0b042a641..df8e68246dcd8f014d685e452e597a69d95cf876 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