Changeset 4873 for palm/trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/salsa_mod.f90

    r4843 r4873  
    648648                                 (/ 3.0E-9_wp, 5.0E-8_wp, 1.0E-5_wp/)
    649649!
    650 !-- Initial log-normal size distribution: mode diameter (dpg, metres), standard deviation (sigmag)
    651 !-- concentration (n_lognorm, #/m3) and mass fractions of all chemical components (listed in
    652 !-- listspec) for both a (soluble) and b (insoluble) bins.
     650!-- Initial log-normal size distribution of aerosol emissions: mode diameter (dpg, metres),
     651!-- standard deviation (sigmag), concentration (n_lognorm, #/m3) and mass fractions of all chemical
     652!-- components (listed in listspec) a (soluble) bins. Currently, non-soluble emissions are not
     653!-- implemented.
    653654    REAL(wp), DIMENSION(nmod) ::  aerosol_flux_dpg   = &
    654655                     (/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/)
     
    657658    REAL(wp), DIMENSION(maxspec) ::  aerosol_flux_mass_fracs_a = &
    658659                                                               (/1.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0/)
    659     REAL(wp), DIMENSION(maxspec) ::  aerosol_flux_mass_fracs_b = &
    660                                                                (/0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0/)
    661660    REAL(wp), DIMENSION(nmod) ::  surface_aerosol_flux = &
    662661                                 (/1.0E+8_wp, 1.0E+9_wp, 1.0E+5_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp/)
     
    11451144    NAMELIST /salsa_parameters/      aerosol_flux_dpg,                                             &
    11461145                                     aerosol_flux_mass_fracs_a,                                    &
    1147                                      aerosol_flux_mass_fracs_b,                                    &
    11481146                                     aerosol_flux_sigmag,                                          &
    11491147                                     advect_particle_water,                                        &
     
    15091507                       aerosol_flux_mass_fracs_a
    15101508    ENDIF
    1511     IF ( SUM( aerosol_flux_mass_fracs_b ) > 0.0_wp  .OR. salsa_emission_mode == 'read_from_file' ) &
     1509    IF ( salsa_emission_mode == 'read_from_file' ) &
    15121510    THEN
    15131511       WRITE( io, 24 )
Note: See TracChangeset for help on using the changeset viewer.