Changeset 5580 for LMDZ6/branches/contrails/libf/phylmd/lmdz_lscp.f90

Timestamp:

Mar 19, 2025, 4:44:03 PM (3 months ago)

Author:

aborella

Message:

Corrections to previous commit

File:

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

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

@@ -487 +487 @@
 DO k = klev, 1, -1
 
+    !--Initialisation of advected properties
     cldfra_in(:) = cf_seri(:,k)
-    qvc_in(:) = rvc_seri(:,k) * q_seri(:,k)
+    qvc_in(:) = rvc_seri(:,k) * qt(:,k)
     qliq_in(:) = ql_seri(:,k)
     qice_in(:) = qi_seri(:,k)