Changeset 5452 for LMDZ6/branches/contrails/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Dec 23, 2024, 6:12:29 PM (40 hours ago)

Author:

aborella

Message:

First implementation of the contrails parameterisation
Lacks the emission of H2O + the impact on radiative transfer

File:

• LMDZ6/branches/contrails/libf/phylmd/phys_output_write_mod.F90 (modified) (3 diffs)

LMDZ6/branches/contrails/libf/phylmd/phys_output_write_mod.F90

@@ -226 +226 @@
          o_dqvcadj, o_dqvcsub, o_dqvccon, o_dqvcmix, o_qsatl, o_qsati, &
 !-- LSCP - aviation variables
-         o_Tcontr, o_qcontr, o_qcontr2, o_fcontrN, o_fcontrP, &
+         o_Tcritcont, o_qcritcont, o_potcontfraP, o_potcontfraNP, &
          o_dcfavi, o_dqiavi, o_dqvcavi, o_flight_dist, o_flight_h2o, &
 !--interactive CO2
@@ -349 +349 @@
          dqvc_adj, dqvc_sub, dqvc_con, dqvc_mix, &
          qsatliq, qsatice, &
-         Tcontr, qcontr, qcontr2, fcontrN, fcontrP, &
+         Tcritcont, qcritcont, potcontfraP, potcontfraNP, &
          dcf_avi, dqi_avi, dqvc_avi, flight_dist, flight_h2o, &
          alp_bl_det, alp_bl_fluct_m, alp_bl_conv, &
@@ -2123 +2123 @@
 !-- LSCP - aviation variables
        IF (ok_plane_contrail) THEN
-         CALL histwrite_phy(o_Tcontr, Tcontr)
-         CALL histwrite_phy(o_qcontr, qcontr)
-         CALL histwrite_phy(o_qcontr2, qcontr2)
-         CALL histwrite_phy(o_fcontrN, fcontrN)
-         CALL histwrite_phy(o_fcontrP, fcontrP)
+         CALL histwrite_phy(o_flight_dist, flight_dist)
+         CALL histwrite_phy(o_Tcritcont, Tcritcont)
+         CALL histwrite_phy(o_qcritcont, qcritcont)
+         CALL histwrite_phy(o_potcontfraP, potcontfraP)
+         CALL histwrite_phy(o_potcontfraNP, potcontfraNP)
          CALL histwrite_phy(o_dcfavi, dcf_avi)
          CALL histwrite_phy(o_dqiavi, dqi_avi)
          CALL histwrite_phy(o_dqvcavi, dqvc_avi)
-         CALL histwrite_phy(o_flight_dist, flight_dist)
        ENDIF
        IF (ok_plane_h2o) THEN