Changeset 4255 for palm/trunk


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

Location:
palm/trunk
Files:
2 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
  • palm/trunk/TESTS/cases/urban_environment_salsa/MONITORING/urban_environment_salsa_rc

    r4254 r4255  
    11
    22 ******************************    --------------------------------------------
    3  * PALM 6.0  Rev: 4249:42     *    atmosphere - run without 1D - prerun
     3 * PALM 6.0  Rev: 4254M       *    atmosphere - run without 1D - prerun
    44 ******************************    --------------------------------------------
    55
    6  Date:               2019-10-04    Run:       urban_environment_salsa__intel_def
    7  Time:                 08:43:18    Run-No.:   00
    8  Run on host:        intel_defa
     6 Date:               2019-10-04    Run:       urban_environment_salsa__gfortran_
     7 Time:                 14:47:55    Run-No.:   00
     8 Run on host:        gfortran_d
    99 Number of PEs:               4    Processor grid (x,y): (   2,   2) calculated
    1010 ------------------------------------------------------------------------------
     
    259259       aerosol_number:   22 19 19  8
    260260
    261        aerosol_mass:     24 16 16 32
     261       aerosol_mass:     22 19 19 32
    262262       (advect_particle_water = T)
    263        salsa_gas:  24 16 16  5
     263       salsa_gas:  22 19 19  5
    264264       (salsa_gases_from_chem = F)
    265265
Note: See TracChangeset for help on using the changeset viewer.