Changeset 1729


Ignore:
Timestamp:
Nov 20, 2015 11:01:48 AM (9 years ago)
Author:
gronemeier
Message:

bugfix for subsidence in combination with Rayleigh damping

File:
1 edited

Legend:

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

    r1683 r1729  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix: shifting of initial profiles only once each time step
    2222!
    2323! Former revisions:
     
    235235!--    Shifting of the initial profile is especially necessary with Rayleigh
    236236!--    damping switched on
    237        IF ( scalar_rayleigh_damping ) THEN
     237       IF ( scalar_rayleigh_damping .AND.                                      &
     238            intermediate_timestep_count == 1 )  THEN
    238239          DO  k = nzb, nzt
    239240             IF ( w_subs(k) < 0.0_wp )  THEN      ! large-scale subsidence
     
    334335!--    Shifting of the initial profile is especially necessary with Rayleigh
    335336!--    damping switched on
    336        IF ( scalar_rayleigh_damping ) THEN
     337       IF ( scalar_rayleigh_damping .AND.                                      &
     338            intermediate_timestep_count == 1 )  THEN
    337339          IF ( i == nxl .AND. j == nys )  THEN ! shifting only once per PE
    338340
Note: See TracChangeset for help on using the changeset viewer.