Changeset 4508 for palm/trunk/SOURCE/pmc_interface_mod.f90

Timestamp:

Apr 24, 2020 1:32:20 PM (4 years ago)

Author:

raasch

Message:

salsa decycling replaced by explicit setting of lateral boundary conditions

File:

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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! salsa variable name changed
+! 
+! 4444 2020-03-05 15:59:50Z raasch
 ! bugfix: cpp-directives and variable declarations for serial mode added
 ! 
@@ -288 +291 @@
 
     USE salsa_mod,                                                             &
-        ONLY:  aerosol_mass, aerosol_number, gconc_2, ibc_salsa_b,             &
+        ONLY:  aerosol_mass, aerosol_number, gconc_2, ibc_aer_b,               &
                mconc_2, nbins_aerosol,                                         &
                ncomponents_mass, nconc_2, nesting_salsa, ngases_salsa,         &
@@ -4875 +4878 @@
 !-- Set Neumann boundary conditions for aerosols and salsa gases
     IF ( salsa  .AND.  nesting_salsa )  THEN
-       IF ( ibc_salsa_b == 1 )  THEN
+       IF ( ibc_aer_b == 1 )  THEN
           DO  m = 1, bc_h(0)%ns
              ic = bc_h(0)%i(m)