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

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:

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

palm/trunk/SOURCE/salsa_mod.f90

@@ -1093 +1093 @@
     WRITE( io, 4 )  nz, ny, nx, nbins_aerosol
     IF ( advect_particle_water )  THEN
-       WRITE( io, 5 )  SHAPE( aerosol_mass(1)%conc ), ncomponents_mass*nbins_aerosol,              &
-                        advect_particle_water
+       WRITE( io, 5 )  nz, ny, nx, ncomponents_mass*nbins_aerosol, advect_particle_water
     ELSE
-       WRITE( io, 5 )  SHAPE( aerosol_mass(1)%conc ), ncc*nbins_aerosol, advect_particle_water
+       WRITE( io, 5 )  nz, ny, nx, ncc*nbins_aerosol, advect_particle_water
     ENDIF
     IF ( .NOT. salsa_gases_from_chem )  THEN
-       WRITE( io, 6 )  SHAPE( aerosol_mass(1)%conc ), ngases_salsa, salsa_gases_from_chem
+       WRITE( io, 6 )  nz, ny, nx, ngases_salsa, salsa_gases_from_chem
     ENDIF
     WRITE( io, 7 )
@@ -1881 +1880 @@
                 CASE ( 'SS', 'ss' )
                    cc_in2mod(5) = ic
-                CASE ( 'HNO3', 'hno3', 'NO', 'no' )
+                CASE ( 'HNO3', 'hno3', 'NO3', 'no3', 'NO', 'no' )
                    cc_in2mod(6) = ic
-                CASE ( 'NH3', 'nh3', 'NH', 'nh' )
+                CASE ( 'NH3', 'nh3', 'NH4', 'nh4', 'NH', 'nh' )
                    cc_in2mod(7) = ic
              END SELECT
@@ -8569 +8568 @@
                    CASE ( 'SS', 'ss' )
                       aero_emission_att%cc_in2mod(5) = ic
-                   CASE ( 'HNO3', 'hno3', 'NO', 'no' )
+                   CASE ( 'HNO3', 'hno3', 'NO', 'no', 'NO3', 'no3' )
                       aero_emission_att%cc_in2mod(6) = ic
-                   CASE ( 'NH3', 'nh3', 'NH', 'nh' )
+                   CASE ( 'NH3', 'nh3', 'NH', 'nh', 'NH4', 'nh4' )
                       aero_emission_att%cc_in2mod(7) = ic
                 END SELECT