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

Timestamp:

Apr 2, 2026, 6:16:39 PM (4 days ago)

Author:

asima

Message:

Adding mass_solu_aero and mass_solu_aero_pi in output
(minor : harmonizing preindustrial --> pre-industrial)

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -127 +127 @@
          o_dryod550aer, o_od865aer, o_abs550aer, o_od550lt1aer, &
          o_od550SPaer, o_od550SPaer_prof, o_dNovrN,  &
+         o_mass_solu_aero,o_mass_solu_aero_pi, &
          o_sconcso4, o_sconcno3, o_sconcoa, o_sconcbc, &
          o_sconcss, o_sconcdust, o_concso4, o_concno3, &
@@ -406 +407 @@
          qsat2m, tpote, tpot, d_ts, od443aer, od550aer, dryod550aer, &
          od865aer, abs550aer, od550lt1aer, &
-         od550SPaer, od550SPaer_prof, dNovrN,  sconcso4, sconcno3, &
+         od550SPaer, od550SPaer_prof, dNovrN, &
+         mass_solu_aero, mass_solu_aero_pi, sconcso4, sconcno3, &
          sconcoa, sconcbc, sconcss, sconcdust, concso4, concno3, &
          concoa, concbc, concss, concdust, loadso4, &
@@ -2115 +2117 @@
                 CALL histwrite_phy(o_dNovrN, dNovrN)
              ENDIF
+             ! (Asima,EV)
+             CALL histwrite_phy(o_mass_solu_aero, mass_solu_aero)
+             CALL histwrite_phy(o_mass_solu_aero_pi, mass_solu_aero_pi)
+             !
              DO naero = 1, naero_tot-1
                 CALL histwrite_phy(o_drytausumaero(naero),drytausum_aero(:,naero))