Changeset 3021 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

May 16, 2018 8:14:20 AM (6 years ago)

Author:

maronga

Message:

bugfixes for nested runs

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in IF clause for nesting
+! 
+! 3014 2018-05-09 08:42:38Z maronga
 ! Fixed a bug in the IF condition to call pcm_tendency in case of 
 ! potential temperature
@@ -295 +298 @@
                intermediate_timestep_count_max, large_scale_forcing,           &
                large_scale_subsidence, microphysics_morrison,                  &
-               microphysics_seifert, microphysics_sat_adjust, neutral, nudging,&
+               microphysics_seifert, microphysics_sat_adjust, nest_bound_s,    &
+               neutral, nudging,                                               &
                ocean, outflow_l, outflow_s, passive_scalar, plant_canopy,      &
                prho_reference, prho_reference,                                 &
@@ -597 +601 @@
 !
 !--       Tendency terms for v-velocity component
-          IF ( .NOT. outflow_s  .OR.  j > nys )  THEN
+          IF ( (.NOT. outflow_s .AND. .NOT. nest_bound_s ) .OR.  j > nys )  THEN
 
              tend(:,j,i) = 0.0_wp