Changeset 4819 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Feb 14, 2024, 8:55:10 PM (8 months ago)

Author:

evignon

Message:

modifications du commit precedent a la suite de l'atelier nuages

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -141 +141 @@
          o_rnebls, o_rneblsvol, o_rhum, o_rhl, o_rhi, o_ozone, o_ozone_light, &
          o_pfraclr, o_pfracld, &
-         o_dqreva, o_dqrauto, o_dqrcol, o_dqrmelt, o_dqrfreez, &
+         o_qrainlsc, o_qsnowlsc, o_dqreva, o_dqrauto, o_dqrcol, o_dqrmelt, o_dqrfreez, &
          o_dqssub, o_dqsauto, o_dqsagg, o_dqsrim, o_dqsmelt, o_dqsfreez, &
          o_duphy, o_dtphy, o_dqphy, o_dqphy2d, o_dqlphy, o_dqlphy2d, &
@@ -363 +363 @@
          rneb, rnebjn, rneblsvol, zx_rh, zx_rhl, zx_rhi, &
          pfraclr, pfracld,  &
-         dqreva, dqssub, &
+         qrain_lsc, qsnow_lsc, dqreva, dqssub, &
          dqrauto,dqrcol,dqrmelt,dqrfreez, &
          dqsauto,dqsagg,dqsrim,dqsmelt,dqsfreez, &
@@ -1985 +1985 @@
            CALL histwrite_phy(o_pfracld, pfracld)
            IF (ok_poprecip) THEN
+           CALL histwrite_phy(o_qrainlsc, qrain_lsc)
+           CALL histwrite_phy(o_qsnowlsc, qsnow_lsc)
            CALL histwrite_phy(o_dqreva, dqreva)
            CALL histwrite_phy(o_dqrauto, dqrauto)