M.Leriche 12/2015 : bug chimie glace + prep_real_case
authorGaelle Tanguy <gaelle.tanguy@meteo.fr>
Fri, 18 Dec 2015 13:37:15 +0000 (13:37 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/MNH/read_exsegn.f90

index 7a5060e..049dab2 100644 (file)
@@ -279,6 +279,7 @@ END MODULE MODI_READ_EXSEG_n
 !!      Modification   02/2012   (T.Lunet) add of new Runge-Kutta methods
 !!      Modification   01/2015   (C. Barthe) add explicit LNOx
 !!      J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 
+!!      M.Leriche 18/12/2015 : bug chimie glace dans prep_real_case
 !!------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -971,7 +972,7 @@ IF (LUSECHAQ.AND.CCLOUD(1:3) == 'ICE'.AND. .NOT. LUSECHIC) THEN
     WRITE(UNIT=ILUOUT,FMT=*) 'SUPERCOOLED WATER FREEZES'
   ENDIF
 ENDIF
-IF (LUSECHIC.AND. .NOT. CCLOUD(1:3) == 'ICE') THEN
+IF (LUSECHIC.AND. .NOT. CCLOUD(1:3) == 'ICE'.AND.CPROGRAM=='MESONH') THEN
   WRITE(UNIT=ILUOUT,FMT=9003) KMI
   WRITE(UNIT=ILUOUT,FMT=*) 'YOU WANT TO USE ICE PHASE CHEMISTRY'
   WRITE(UNIT=ILUOUT,FMT=*) 'BUT MIXED PHASE CLOUD MICROPHYSICS IS NOT ACTIVATED'