Changeset 5219 for LMDZ6/branches/Amaury_dev/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Sep 23, 2024, 2:25:05 PM (7 weeks ago)

Author:

abarral

Message:

Merge r5150 from trunk which had been missed in previous merges

Location:

LMDZ6/branches/Amaury_dev

Files:

• . (modified) (1 prop)
• libf/phylmd/phys_output_write_mod.F90 (modified) (3 diffs)

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

@@ -258 +258 @@
          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_sulfmmr, o_nd_mode, o_sulfmmr_mode
+         o_SAD_sulfate, o_reff_sulfate, o_sulfmmr, o_nd_mode, o_sulfmmr_mode
 
     USE ice_sursat_mod, ONLY: flight_m, flight_h2o
@@ -415 +415 @@
          surf_PM25_sulf, tau_strat_550, tausum_strat, &
          vsed_aer, tau_strat_1020, f_r_wet, &
-         SAD_sulfate, sulfmmr, nd_mode, sulfmmr_mode
+         SAD_sulfate, reff_sulfate, sulfmmr, nd_mode, sulfmmr_mode
     USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
 
@@ -1840 +1840 @@
           CALL histwrite_phy(o_tau_strat_1020, tausum_strat(:,2))
           CALL histwrite_phy(o_SAD_sulfate, SAD_sulfate)
+          CALL histwrite_phy(o_reff_sulfate, reff_sulfate)
           CALL histwrite_phy(o_sulfmmr, sulfmmr)
           ! All BINs fields