diff --git a/src/MNH/radiations.f90 b/src/MNH/radiations.f90 index ecf0f36fe7f0e1629a5425363a8f94b7d53276ba..67dba74ce1cb8bd2ac34828a4c76762d5c1056f1 100644 --- a/src/MNH/radiations.f90 +++ b/src/MNH/radiations.f90 @@ -766,9 +766,9 @@ IF( CCLOUD == 'LIMA' ) THEN DO JJ=IJB,IJE DO JI=IIB,IIE IIJ = 1 + (JI-IIB) + (IIE-IIB+1)*(JJ-IJB) - IF (LWARM) ZCCT_LIMA(IIJ,JKRAD) = MAX(0.,PSVT(JI,JJ,JK,NSV_LIMA_NC)) - IF (LWARM .AND. LRAIN) ZCRT_LIMA(IIJ,JKRAD) = MAX(0.,PSVT(JI,JJ,JK,NSV_LIMA_NR)) - IF (LCOLD) ZCIT_LIMA(IIJ,JKRAD) = MAX(0.,PSVT(JI,JJ,JK,NSV_LIMA_NI)) + IF (LWARM .AND. NSV_LIMA_NC.GT.0) ZCCT_LIMA(IIJ,JKRAD) = MAX(0.,PSVT(JI,JJ,JK,NSV_LIMA_NC)) + IF (LWARM .AND. LRAIN .AND. NSV_LIMA_NR.GT.0) ZCRT_LIMA(IIJ,JKRAD) = MAX(0.,PSVT(JI,JJ,JK,NSV_LIMA_NR)) + IF (LCOLD .AND. NSV_LIMA_NI.GT.0) ZCIT_LIMA(IIJ,JKRAD) = MAX(0.,PSVT(JI,JJ,JK,NSV_LIMA_NI)) END DO END DO END DO