Changeset 5644

Timestamp:

May 5, 2025, 3:15:46 PM (7 weeks ago)

Author:

aborella

Message:

Fix to previous commit

File:

• LMDZ6/branches/contrails/libf/phylmd/lmdz_lscp.f90 (modified) (1 diff)

LMDZ6/branches/contrails/libf/phylmd/lmdz_lscp.f90 ¶

@@ -1298 +1298 @@
         !--We must have iflag_coupl == 5 for this coupling to work
         IF ( ptconv(i,k) .AND. pt_pron_clds(i) .AND. ok_nodeep_lscp_rad ) THEN
-          rneb(i,k) = rneb(i,k) - cfcon(i,k)
-          radocond(i,k) = radocond(i,k) - qccon_old(i,k) * cfcon(i,k)
+          rneb(i,k) = MAX(0., rneb(i,k) - cfcon(i,k))
+          radocond(i,k) = MAX(0., radocond(i,k) - qccon_old(i,k) * cfcon(i,k))
         ENDIF