Changeset 1736


Ignore:
Timestamp:
Dec 4, 2015 8:56:33 AM (6 years ago)
Author:
raasch
Message:

no perturbations added to total domain if energy limit has been set zero

File:
1 edited

Legend:

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

    r1692 r1736  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! no perturbations added to total domain if energy limit has been set zero
    2222!
    2323! Former revisions:
     
    652652                !$acc update host( u, v )
    653653                IF ( numprocs == 1 )  on_device = .FALSE.  ! workaround, remove later
    654                 IF ( hom(nzb+5,1,pr_palm,0) < disturbance_energy_limit )  THEN
     654                IF ( disturbance_energy_limit /= 0.0_wp  .AND.                 &
     655                     hom(nzb+5,1,pr_palm,0) < disturbance_energy_limit )  THEN
    655656                   CALL disturb_field( nzb_u_inner, tend, u )
    656657                   CALL disturb_field( nzb_v_inner, tend, v )
Note: See TracChangeset for help on using the changeset viewer.