diff --git a/src/chemistry/oslo_aero/NdParam.f b/src/chemistry/oslo_aero/NdParam.f index 417a640a15..44cfe2a46a 100644 --- a/src/chemistry/oslo_aero/NdParam.f +++ b/src/chemistry/oslo_aero/NdParam.f @@ -235,6 +235,15 @@ SUBROUTINE PDFACTIV (WPARC,TP,AKK,A,B,ACCOM,SG,SIGW, DOUBLE PRECISION NACTI, DENOM REAL PDF + !C Check if temperature is below -50C + IF (TPARC.LT.223.0) THEN + SMAX = 0d0 + NACT = 0d0 + ACF = 0d0 + MACF = 0d0 + RETURN + ENDIF + !C !C *** Single updraft case !C