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

Timestamp:

Apr 7, 2025, 4:05:50 PM (2 months ago)

Author:

lebasn

Message:

StratAer?: add new diags (4 new longwaves for ext+AOD and SO2 chem loss) + update field/file_def.

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -264 +264 @@
          o_budg_emi_ocs, o_budg_emi_so2, o_budg_emi_h2so4, o_budg_emi_part, &
          o_budg_ocs_to_so2, o_budg_so2_to_h2so4, o_budg_h2so4_to_part, &
-         o_surf_PM25_sulf, o_ext_strat_550, o_tau_strat_550, &
-         o_vsed_aer, o_tau_strat_1020, o_ext_strat_1020, o_f_r_wet, &
-         o_SAD_sulfate, o_reff_sulfate, o_sulfmmr, o_nd_mode, o_sulfmmr_mode
+         o_surf_PM25_sulf, o_ext_strat_443, o_tau_strat_443, o_ext_strat_550, o_tau_strat_550, &
+         o_ext_strat_670, o_tau_strat_670, o_ext_strat_765, o_tau_strat_765, o_vsed_aer, &
+         o_tau_strat_1020, o_ext_strat_1020, o_tau_strat_10um, o_ext_strat_10um, o_f_r_wet, &
+         o_SAD_sulfate, o_reff_sulfate, o_sulfmmr, o_nd_mode, o_sulfmmr_mode,o_SO2_chlm
 
     USE lmdz_lscp_ini, ONLY: ok_poprecip
@@ -424 +425 @@
          budg_emi_ocs, budg_emi_so2, budg_emi_h2so4, budg_emi_part, & 
          budg_ocs_to_so2, budg_so2_to_h2so4, budg_h2so4_to_part, & 
-         surf_PM25_sulf, tau_strat_550, tausum_strat, &
-         vsed_aer, tau_strat_1020, f_r_wet, &
-         SAD_sulfate, reff_sulfate, sulfmmr, nd_mode, sulfmmr_mode
+         surf_PM25_sulf,  tau_strat_443, tau_strat_550, tau_strat_670, tau_strat_765, &
+         tausum_strat, vsed_aer, tau_strat_1020, tau_strat_10um, f_r_wet, &
+         SAD_sulfate, reff_sulfate, sulfmmr, nd_mode, sulfmmr_mode, SO2_chlm
 
     USE carbon_cycle_mod, ONLY: fco2_ff, fco2_bb, fco2_land, fco2_ocean
@@ -1871 +1872 @@
           CALL histwrite_phy(o_vsed_aer, vsed_aer)
           CALL histwrite_phy(o_f_r_wet, f_r_wet)
+          CALL histwrite_phy(o_SO2_chlm, SO2_chlm)
+          CALL histwrite_phy(o_ext_strat_443, tau_strat_443)
           CALL histwrite_phy(o_ext_strat_550, tau_strat_550)
+          CALL histwrite_phy(o_ext_strat_670, tau_strat_670)
+          CALL histwrite_phy(o_ext_strat_765, tau_strat_765)
           CALL histwrite_phy(o_ext_strat_1020, tau_strat_1020)
-          CALL histwrite_phy(o_tau_strat_550, tausum_strat(:,1))
-          CALL histwrite_phy(o_tau_strat_1020, tausum_strat(:,2))
+          CALL histwrite_phy(o_ext_strat_10um, tau_strat_10um)
+          CALL histwrite_phy(o_tau_strat_443, tausum_strat(:,1))
+          CALL histwrite_phy(o_tau_strat_550, tausum_strat(:,2))
+          CALL histwrite_phy(o_tau_strat_670, tausum_strat(:,3))
+          CALL histwrite_phy(o_tau_strat_765, tausum_strat(:,4))
+          CALL histwrite_phy(o_tau_strat_1020, tausum_strat(:,5))
+          CALL histwrite_phy(o_tau_strat_10um, tausum_strat(:,6))
           CALL histwrite_phy(o_SAD_sulfate, SAD_sulfate)
           CALL histwrite_phy(o_reff_sulfate, reff_sulfate)