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

Timestamp:

Jun 27, 2025, 7:30:06 PM (3 weeks ago)

Author:

aborella

Message:

Correction to rare floating point errors + added support for the sedimentation of contrails

File:

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

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

@@ -245 +245 @@
          o_dcflini, o_dqilini, o_dqtlini, o_dcflsub, o_dqilsub, o_dqtlsub, &
          o_dcflmix, o_dqilmix, o_dqtlmix, &
+         o_dcflsed, o_dqilsed, o_dqtlsed, o_dcfcsed, o_dqicsed, o_dqtcsed, &
          o_dcfcsub, o_dqicsub, o_dqtcsub, o_dcfcmix, o_dqicmix, o_dqtcmix, &
          o_cldfra_nocont, o_cldtau_nocont, o_cldemi_nocont, o_cldh_nocont, &
@@ -382 +383 @@
          dcfl_ini, dqil_ini, dqtl_ini, dcfl_sub, dqil_sub, dqtl_sub, &
          dcfl_mix, dqil_mix, dqtl_mix, &
+         dcfl_sed, dqil_sed, dqtl_sed, dcfc_sed, dqic_sed, dqtc_sed, &
          dcfc_sub, dqic_sub, dqtc_sub, dcfc_mix, dqic_mix, dqtc_mix, &
          cldfra_nocont, cldtau_nocont, cldemi_nocont, cldh_nocont, &
@@ -2256 +2258 @@
          CALL histwrite_phy(o_dqilmix, dqil_mix)
          CALL histwrite_phy(o_dqtlmix, dqtl_mix)
+         CALL histwrite_phy(o_dcflsed, dcfl_sed)
+         CALL histwrite_phy(o_dqilsed, dqil_sed)
+         CALL histwrite_phy(o_dqtlsed, dqtl_sed)
          CALL histwrite_phy(o_dcfcsub, dcfc_sub)
          CALL histwrite_phy(o_dqicsub, dqic_sub)
@@ -2262 +2267 @@
          CALL histwrite_phy(o_dqicmix, dqic_mix)
          CALL histwrite_phy(o_dqtcmix, dqtc_mix)
+         CALL histwrite_phy(o_dcfcsed, dcfc_sed)
+         CALL histwrite_phy(o_dqicsed, dqic_sed)
+         CALL histwrite_phy(o_dqtcsed, dqtc_sed)
          CALL histwrite_phy(o_cldfra_nocont, cldfra_nocont)
          CALL histwrite_phy(o_cldtau_nocont, cldtau_nocont)