Changeset 1736 for palm

Timestamp:

Dec 4, 2015 8:56:33 AM (9 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (2 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! no perturbations added to total domain if energy limit has been set zero
 ! 
 ! Former revisions:
@@ -652 +652 @@
                 !$acc update host( u, v )
                 IF ( numprocs == 1 )  on_device = .FALSE.  ! workaround, remove later
-                IF ( hom(nzb+5,1,pr_palm,0) < disturbance_energy_limit )  THEN
+                IF ( disturbance_energy_limit /= 0.0_wp  .AND.                 &
+                     hom(nzb+5,1,pr_palm,0) < disturbance_energy_limit )  THEN
                    CALL disturb_field( nzb_u_inner, tend, u )
                    CALL disturb_field( nzb_v_inner, tend, v )