Ignore:
Timestamp:
May 18, 2018 11:12:35 AM (3 years ago)
Author:
suehring
Message:

Revise recent bugfix in nested runs at left and south boundary; bugfix in advection of u in case of OpenMP parallelization; bugfix in plant transpiration

File:
1 edited

Legend:

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

    r3021 r3022  
    2525! -----------------
    2626! $Id$
     27! Revise recent bugfix for nesting
     28!
     29! 3021 2018-05-16 08:14:20Z maronga
    2730! Bugfix in IF clause for nesting
    2831!
     
    298301               intermediate_timestep_count_max, large_scale_forcing,           &
    299302               large_scale_subsidence, microphysics_morrison,                  &
    300                microphysics_seifert, microphysics_sat_adjust, nest_bound_s,    &
    301                neutral, nudging,                                               &
     303               microphysics_seifert, microphysics_sat_adjust, neutral, nudging,&
    302304               ocean, outflow_l, outflow_s, passive_scalar, plant_canopy,      &
    303305               prho_reference, prho_reference,                                 &
     
    527529       DO  j = nys, nyn
    528530!
    529 !--       Tendency terms for u-velocity component
    530           IF ( .NOT. outflow_l  .OR.  i > nxl )  THEN
     531!--       Tendency terms for u-velocity component. Please note, in case of
     532!--       non-cyclic boundary conditions the grid point i=0 is excluded from
     533!--       the prognostic equations for the u-component.   
     534          IF ( i >= nxlu )  THEN
    531535
    532536             tend(:,j,i) = 0.0_wp
     
    598602
    599603          ENDIF
    600 
    601 !
    602 !--       Tendency terms for v-velocity component
    603           IF ( (.NOT. outflow_s .AND. .NOT. nest_bound_s ) .OR.  j > nys )  THEN
     604!
     605!--       Tendency terms for v-velocity component. Please note, in case of
     606!--       non-cyclic boundary conditions the grid point j=0 is excluded from
     607!--       the prognostic equations for the v-component. !--       
     608          IF ( j >= nysv )  THEN
    604609
    605610             tend(:,j,i) = 0.0_wp
Note: See TracChangeset for help on using the changeset viewer.