Changeset 5609 for LMDZ6/branches/contrails/libf/phylmd/phyredem.f90

Timestamp:

Apr 13, 2025, 7:10:19 PM (3 months ago)

Author:

aborella

Message:

• changed treatment of prognostic variables for prognostic clouds
• adapted sedimentation and autoconversion for prognostic cirrus clouds
• cloud mixing, ice sedimentation and ISSR diagnosis are now consistent with the water vapor PDF
• simplified assumptions for ice crystals deposition / sublimation
• first version of the coupling between prognostic cirrus clouds and deep convection
• added persistent contrail cirrus clouds in radiative diagnostics

File:

• LMDZ6/branches/contrails/libf/phylmd/phyredem.f90 (modified) (2 diffs)

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

@@ -23 +23 @@
                                 prw_ancien, prlw_ancien, prsw_ancien, prbsw_ancien,      &
                                 ql_ancien, qs_ancien, qbs_ancien, cf_ancien, &
-                                qvc_ancien, cfa_ancien, qta_ancien,          &
-                                u_ancien, v_ancien,                          &
-                                clwcon, rnebcon, ratqs, pbl_tke,             &
+                                qvc_ancien, cfa_ancien, pcf_ancien,          &
+                                qva_ancien, qia_ancien, u_ancien, v_ancien,  &
+                                cwcon, clwcon, rnebcon, ratqs, pbl_tke,      &
                                 wake_delta_pbl_tke, zmax0, f0, sig1, w01,    &
                                 wake_deltat, wake_deltaq, wake_s, awake_s,   &
@@ -255 +255 @@
       CALL put_field(pass,"CFANCIEN", "CFANCIEN", cf_ancien)
       CALL put_field(pass,"QVCANCIEN", "QVCANCIEN", qvc_ancien)
+      CALL put_field(pass,"CWCON", "CWCON", cwcon)
     ENDIF
 
     IF ( ok_plane_contrail ) THEN
       CALL put_field(pass,"CFAANCIEN", "CFAANCIEN", cfa_ancien)
-      CALL put_field(pass,"QTAANCIEN", "QTAANCIEN", qta_ancien)
+      CALL put_field(pass,"PCFANCIEN", "PCFANCIEN", pcf_ancien)
+      CALL put_field(pass,"QVAANCIEN", "QVAANCIEN", qva_ancien)
+      CALL put_field(pass,"QIAANCIEN", "QIAANCIEN", qia_ancien)
     ENDIF