Changeset 3021 for palm

Timestamp:

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

Author:

maronga

Message:

bugfixes for nested runs

Location:

palm/trunk/SOURCE

Files:

• pmc_interface_mod.f90 (modified) (2 diffs)
• prognostic_equations.f90 (modified) (3 diffs)

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: variable lcr was defined as INTENT(OUT) instead of INTENT(INOUT)
+! 
+! 3020 2018-05-14 10:45:48Z hellstea
 ! Bugfix in pmci_define_loglaw_correction_parameters
 ! 
@@ -2691 +2694 @@
        LOGICAL      ::  more                                   !<             
 
-       REAL(wp), DIMENSION(0:ncorr-1), INTENT(OUT) ::  lcr     !<
+       REAL(wp), DIMENSION(0:ncorr-1), INTENT(INOUT) ::  lcr   !<
        REAL(wp), INTENT(IN)      ::  z0_l                      !<
       

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