Changeset 3021


Ignore:
Timestamp:
May 16, 2018 8:14:20 AM (3 years ago)
Author:
maronga
Message:

bugfixes for nested runs

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_interface_mod.f90

    r3020 r3021  
    2525! -----------------
    2626! $Id$
     27! Bugfix: variable lcr was defined as INTENT(OUT) instead of INTENT(INOUT)
     28!
     29! 3020 2018-05-14 10:45:48Z hellstea
    2730! Bugfix in pmci_define_loglaw_correction_parameters
    2831!
     
    26912694       LOGICAL      ::  more                                   !<             
    26922695
    2693        REAL(wp), DIMENSION(0:ncorr-1), INTENT(OUT) ::  lcr     !<
     2696       REAL(wp), DIMENSION(0:ncorr-1), INTENT(INOUT) ::  lcr   !<
    26942697       REAL(wp), INTENT(IN)      ::  z0_l                      !<
    26952698     
  • palm/trunk/SOURCE/prognostic_equations.f90

    r3014 r3021  
    2525! -----------------
    2626! $Id$
     27! Bugfix in IF clause for nesting
     28!
     29! 3014 2018-05-09 08:42:38Z maronga
    2730! Fixed a bug in the IF condition to call pcm_tendency in case of
    2831! potential temperature
     
    295298               intermediate_timestep_count_max, large_scale_forcing,           &
    296299               large_scale_subsidence, microphysics_morrison,                  &
    297                microphysics_seifert, microphysics_sat_adjust, neutral, nudging,&
     300               microphysics_seifert, microphysics_sat_adjust, nest_bound_s,    &
     301               neutral, nudging,                                               &
    298302               ocean, outflow_l, outflow_s, passive_scalar, plant_canopy,      &
    299303               prho_reference, prho_reference,                                 &
     
    597601!
    598602!--       Tendency terms for v-velocity component
    599           IF ( .NOT. outflow_s .OR.  j > nys )  THEN
     603          IF ( (.NOT. outflow_s .AND. .NOT. nest_bound_s ) .OR.  j > nys )  THEN
    600604
    601605             tend(:,j,i) = 0.0_wp
Note: See TracChangeset for help on using the changeset viewer.