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

Timestamp:

Feb 5, 2024, 10:16:07 PM (8 months ago)

Author:

evignon

Message:

implementation sous flag des premiers changements
concernant le traitement des precipitations grande echelle
dans le cadre de l'atelier nuages
Audran, Lea, Niels, Gwendal et Etienne

File:

• LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (4 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_dqssub, o_dqsauto, o_dqsagg, o_dqsrim, o_dqsmelt, o_dqsfreez, &
          o_duphy, o_dtphy, o_dqphy, o_dqphy2d, o_dqlphy, o_dqlphy2d, &
          o_dqsphy, o_dqsphy2d, o_dqbsphy, o_dqbsphy2d, o_albe_srf, o_z0m_srf, o_z0h_srf, &
@@ -255 +257 @@
 
     USE ice_sursat_mod, ONLY: flight_m, flight_h2o
-    
+    USE lmdz_lscp_ini, ONLY: ok_poprecip
+
     USE phys_output_ctrlout_mod, ONLY: o_heat_volc, o_cool_volc !NL
     USE phys_state_var_mod, ONLY: heat_volc, cool_volc !NL
@@ -357 +360 @@
          zphi, u_seri, v_seri, omega, cldfra, &
          rneb, rnebjn, rneblsvol, zx_rh, zx_rhl, zx_rhi, &
-         pfraclr, pfracld, d_t_dyn,  & 
+         pfraclr, pfracld,  &
+         dqreva, dqssub, &
+         dqrauto,dqrcol,dqrmelt,dqrfreez, &
+         dqsauto,dqsagg,dqsrim,dqsmelt,dqsfreez, &
+         d_t_dyn,  & 
          d_q_dyn,  d_ql_dyn, d_qs_dyn, d_qbs_dyn,  &
          d_q_dyn2d,  d_ql_dyn2d, d_qs_dyn2d, d_qbs_dyn2d, &
@@ -1942 +1949 @@
            CALL histwrite_phy(o_pfraclr, pfraclr)
            CALL histwrite_phy(o_pfracld, pfracld)
+           IF (ok_poprecip) THEN
+           CALL histwrite_phy(o_dqreva, dqreva)
+           CALL histwrite_phy(o_dqrauto, dqrauto)
+           CALL histwrite_phy(o_dqrcol, dqrcol)
+           CALL histwrite_phy(o_dqrmelt, dqrmelt)
+           CALL histwrite_phy(o_dqrfreez, dqrfreez)
+           CALL histwrite_phy(o_dqssub, dqssub)
+           CALL histwrite_phy(o_dqsauto, dqsauto)
+           CALL histwrite_phy(o_dqsagg, dqsagg)
+           CALL histwrite_phy(o_dqsmelt, dqsmelt)
+           CALL histwrite_phy(o_dqsfreez, dqsfreez)
+           CALL histwrite_phy(o_dqsrim, dqsrim)
+           ENDIF
        ENDIF