Changeset 4079 for palm/trunk/SOURCE/chemistry_model_mod.f90

Timestamp:

Jul 9, 2019 6:04:41 PM (5 years ago)

Author:

suehring

Message:

Implementation of a monotonic flux limiter for vertical advection term in Wicker-Skamarock scheme. The flux limiter is currently only applied for passive scalars (passive scalar, chemical species, aerosols) within the region up to the highest topography, in order to avoid the built-up of large concentrations within poorly resolved cavities in urban environments. To enable the limiter monotonic_limiter_z = .T. must be set. Note, the limiter is currently only implemented for the cache-optimized version of advec_ws. Further changes in offline nesting: Set boundary condition for w at nzt+1 at all lateral boundaries (even though these won't enter the numerical solution), in order to avoid high vertical velocities in the run-control file which might built-up due to the mass-conservation; bugfix in offline nesting for chemical species

File:

• palm/trunk/SOURCE/chemistry_model_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Application of monotonic flux limiter for the vertical scalar advection 
+! up to the topography top (only for the cache-optimized version at the 
+! moment).
+! 
+! 4069 2019-07-01 14:05:51Z Giersch
 ! Masked output running index mid has been introduced as a local variable to 
 ! avoid runtime error (Loop variable has been modified) in time_integration
@@ -354 +359 @@
                 dt_3d, humidity, initializing_actions, message_string,                             &
                 omega, tsc, intermediate_timestep_count, intermediate_timestep_count_max,          &
-         max_pr_user, timestep_scheme, use_prescribed_profile_data, ws_scheme_sca, air_chemistry
+                max_pr_user,                                                                       &
+                monotonic_limiter_z,                                                               &
+                timestep_scheme, use_prescribed_profile_data, ws_scheme_sca, air_chemistry
 
     USE arrays_3d,                                                                                 &
@@ -2750 +2757 @@
              CALL advec_s_ws( i, j, chem_species(ilsp)%conc, 'kc', chem_species(ilsp)%flux_s_cs,   &
                               chem_species(ilsp)%diss_s_cs, chem_species(ilsp)%flux_l_cs,          &
-                              chem_species(ilsp)%diss_l_cs, i_omp_start, tn )
+                              chem_species(ilsp)%diss_l_cs, i_omp_start, tn, monotonic_limiter_z )
           ELSE
              CALL advec_s_pw( i, j, chem_species(ilsp)%conc )
@@ -2782 +2789 @@
                BTEST( wall_flags_0(k,j,i), 0 )                                                     &
                )
-
-          IF ( chem_species(ilsp)%conc_p(k,j,i) < 0.0_wp )  THEN
-             chem_species(ilsp)%conc_p(k,j,i) = 0.1_wp * chem_species(ilsp)%conc(k,j,i)    !FKS6
-          ENDIF
        ENDDO
 !
@@ -3315 +3318 @@
        r_aero_surf = surf_lsm_h%r_a(m)
        solar_rad   = surf_lsm_h%rad_sw_dir(m) + surf_lsm_h%rad_sw_dif(m)
+       
        lai = surf_lsm_h%lai(m)
        sai = lai + 1