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

Timestamp:

Feb 22, 2024, 5:29:02 PM (3 months ago)

Author:

evignon

Message:

changements suite à l'atelier nuage d'aujourd'hui.

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -363 +363 @@
          rneb, rnebjn, rneblsvol, zx_rh, zx_rhl, zx_rhi, &
          pfraclr, pfracld,  &
-         qrain_lsc, qsnow_lsc, dqreva, dqssub, &
+         qraindiag, qsnowdiag, 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_qrainlsc, qraindiag)
+           CALL histwrite_phy(o_qsnowlsc, qsnowdiag)
            CALL histwrite_phy(o_dqreva, dqreva)
            CALL histwrite_phy(o_dqrauto, dqrauto)