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

Timestamp:

Dec 23, 2024, 8:19:39 PM (36 hours ago)

Author:

aborella

Message:

Added water emissions and IO routines for contrails.
Work to be done: contrails initial cross section and radiative transfer

File:

• LMDZ6/branches/contrails/libf/phylmd/phys_output_write_mod.F90 (modified) (4 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_rcontseri, o_drcontdyn, o_dqavi, &
          o_Tcritcont, o_qcritcont, o_potcontfraP, o_potcontfraNP, &
          o_dcfavi, o_dqiavi, o_dqvcavi, o_flight_dist, o_flight_h2o, &
@@ -349 +350 @@
          dqvc_adj, dqvc_sub, dqvc_con, dqvc_mix, &
          qsatliq, qsatice, &
+         rcont_seri, d_rcont_dyn, d_q_avi, &
          Tcritcont, qcritcont, potcontfraP, potcontfraNP, &
          dcf_avi, dqi_avi, dqvc_avi, flight_dist, flight_h2o, &
@@ -2123 +2125 @@
 !-- LSCP - aviation variables
        IF (ok_plane_contrail) THEN
+         CALL histwrite_phy(o_rcontseri, rcont_seri)
+         CALL histwrite_phy(o_drcontdyn, d_rcont_dyn)
          CALL histwrite_phy(o_flight_dist, flight_dist)
          CALL histwrite_phy(o_Tcritcont, Tcritcont)
@@ -2134 +2138 @@
        IF (ok_plane_h2o) THEN
          CALL histwrite_phy(o_flight_h2o, flight_h2o)
+         CALL histwrite_phy(o_dqavi, d_q_avi)
        ENDIF