Changeset 4255 for palm/trunk/SOURCE


Ignore:
Timestamp:
Oct 4, 2019 11:50:55 AM (5 years ago)
Author:
monakurppa
Message:

Bug corrected in salsa_mod in writing the run control

File:
1 edited

Legend:

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

    r4227 r4255  
    10931093    WRITE( io, 4 )  nz, ny, nx, nbins_aerosol
    10941094    IF ( advect_particle_water )  THEN
    1095        WRITE( io, 5 )  SHAPE( aerosol_mass(1)%conc ), ncomponents_mass*nbins_aerosol,              &
    1096                         advect_particle_water
     1095       WRITE( io, 5 )  nz, ny, nx, ncomponents_mass*nbins_aerosol, advect_particle_water
    10971096    ELSE
    1098        WRITE( io, 5 )  SHAPE( aerosol_mass(1)%conc ), ncc*nbins_aerosol, advect_particle_water
     1097       WRITE( io, 5 )  nz, ny, nx, ncc*nbins_aerosol, advect_particle_water
    10991098    ENDIF
    11001099    IF ( .NOT. salsa_gases_from_chem )  THEN
    1101        WRITE( io, 6 )  SHAPE( aerosol_mass(1)%conc ), ngases_salsa, salsa_gases_from_chem
     1100       WRITE( io, 6 )  nz, ny, nx, ngases_salsa, salsa_gases_from_chem
    11021101    ENDIF
    11031102    WRITE( io, 7 )
     
    18811880                CASE ( 'SS', 'ss' )
    18821881                   cc_in2mod(5) = ic
    1883                 CASE ( 'HNO3', 'hno3', 'NO', 'no' )
     1882                CASE ( 'HNO3', 'hno3', 'NO3', 'no3', 'NO', 'no' )
    18841883                   cc_in2mod(6) = ic
    1885                 CASE ( 'NH3', 'nh3', 'NH', 'nh' )
     1884                CASE ( 'NH3', 'nh3', 'NH4', 'nh4', 'NH', 'nh' )
    18861885                   cc_in2mod(7) = ic
    18871886             END SELECT
     
    85698568                   CASE ( 'SS', 'ss' )
    85708569                      aero_emission_att%cc_in2mod(5) = ic
    8571                    CASE ( 'HNO3', 'hno3', 'NO', 'no' )
     8570                   CASE ( 'HNO3', 'hno3', 'NO', 'no', 'NO3', 'no3' )
    85728571                      aero_emission_att%cc_in2mod(6) = ic
    8573                    CASE ( 'NH3', 'nh3', 'NH', 'nh' )
     8572                   CASE ( 'NH3', 'nh3', 'NH', 'nh', 'NH4', 'nh4' )
    85748573                      aero_emission_att%cc_in2mod(7) = ic
    85758574                END SELECT
Note: See TracChangeset for help on using the changeset viewer.