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

Timestamp:

Aug 5, 2025, 2:22:14 PM (9 days ago)

Author:

aborella

Message:

Bugfix for saturation adjustment in cirrus mixing + bugfix for contrails sedimentation + new diagnostics + support for unadjusted contrails

File:

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

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

@@ -24 +24 @@
                                 ql_ancien, qs_ancien, qbs_ancien, cf_ancien, &
                                 qvcon, qccon,                                &
-                                qvc_ancien, cfc_ancien, qtc_ancien, nic_ancien, &
+                                qvc_ancien, cfc_ancien, qtc_ancien,          &
+                                qic_ancien, nic_ancien,                      &
                                 u_ancien, v_ancien, tke_ancien,              &
                                 clwcon, rnebcon, ratqs, pbl_tke,             &
@@ -312 +313 @@
       CALL put_field(pass,"CFCANCIEN", "CFCANCIEN", cfc_ancien)
       CALL put_field(pass,"QTCANCIEN", "QTCANCIEN", qtc_ancien)
+      CALL put_field(pass,"QICANCIEN", "QICANCIEN", qic_ancien)
       CALL put_field(pass,"NICANCIEN", "NICANCIEN", nic_ancien)
     ENDIF