Changeset 4873 for palm/trunk/SOURCE/salsa_mod.f90

Timestamp:

Feb 12, 2021 5:12:17 PM (4 years ago)

Author:

monakurppa

Message:

Remove unused variable "aerosol_flux_mass_fracs_b". For now, only non-soluble aerosol emissions are included.

File:

• palm/trunk/SOURCE/salsa_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/salsa_mod.f90

@@ -648 +648 @@
                                  (/ 3.0E-9_wp, 5.0E-8_wp, 1.0E-5_wp/)
 !
-!-- Initial log-normal size distribution: mode diameter (dpg, metres), standard deviation (sigmag)
-!-- concentration (n_lognorm, #/m3) and mass fractions of all chemical components (listed in
-!-- listspec) for both a (soluble) and b (insoluble) bins.
+!-- Initial log-normal size distribution of aerosol emissions: mode diameter (dpg, metres),
+!-- standard deviation (sigmag), concentration (n_lognorm, #/m3) and mass fractions of all chemical
+!-- components (listed in listspec) a (soluble) bins. Currently, non-soluble emissions are not
+!-- implemented.
     REAL(wp), DIMENSION(nmod) ::  aerosol_flux_dpg   = &
                      (/1.3E-8_wp, 5.4E-8_wp, 8.6E-7_wp, 2.0E-7_wp, 2.0E-7_wp, 2.0E-7_wp, 2.0E-7_wp/)
@@ -657 +658 @@
     REAL(wp), DIMENSION(maxspec) ::  aerosol_flux_mass_fracs_a = &
                                                                (/1.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0/)
-    REAL(wp), DIMENSION(maxspec) ::  aerosol_flux_mass_fracs_b = &
-                                                               (/0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0/)
     REAL(wp), DIMENSION(nmod) ::  surface_aerosol_flux = &
                                  (/1.0E+8_wp, 1.0E+9_wp, 1.0E+5_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp/)
@@ -1145 +1144 @@
     NAMELIST /salsa_parameters/      aerosol_flux_dpg,                                             &
                                      aerosol_flux_mass_fracs_a,                                    &
-                                     aerosol_flux_mass_fracs_b,                                    &
                                      aerosol_flux_sigmag,                                          &
                                      advect_particle_water,                                        &
@@ -1509 +1507 @@
                        aerosol_flux_mass_fracs_a
     ENDIF
-    IF ( SUM( aerosol_flux_mass_fracs_b ) > 0.0_wp  .OR. salsa_emission_mode == 'read_from_file' ) &
+    IF ( salsa_emission_mode == 'read_from_file' ) &
     THEN
        WRITE( io, 24 )