Changeset 5440 for LMDZ6/trunk/libf/phylmd/lmdz_lscp_condensation.f90

Timestamp:

Dec 20, 2024, 8:54:12 PM (10 days ago)

Author:

evignon

Message:

small bug fixes in lscp

File:

• LMDZ6/trunk/libf/phylmd/lmdz_lscp_condensation.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_lscp_condensation.f90

@@ -292 +292 @@
   !--formed elsewhere)
   IF (keepgoing(i)) THEN
+
+    !--Initialisation
+    issrfra(i)  = 0.
+    qissr(i)    = 0.
 
     !--If the temperature is higher than the threshold below which
@@ -363 +367 @@
       dqi_mix(i)  = 0.
       dqvc_mix(i) = 0.
-
-      issrfra(i)  = 0.
-      qissr(i)    = 0.
-      subfra(i)   = 0.
-      qsub(i)     = 0.
 
       !--Initialisation of the cell properties