Changeset 1734 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Dec 2, 2015 12:17:12 PM (8 years ago)

Author:

raasch

Message:

no initial disturbances in case that the disturbance energy limit has been set zero

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! no initial disturbances in case that the disturbance energy limit has been
+! set zero
 ! 
 ! Former revisions:
@@ -1580 +1581 @@
 !-- Impose random perturbation on the horizontal velocity field and then
 !-- remove the divergences from the velocity field at the initial stage
-    IF ( create_disturbances .AND. &
+    IF ( create_disturbances  .AND.  disturbance_energy_limit /= 0.0_wp  .AND.&
          TRIM( initializing_actions ) /= 'read_restart_data'  .AND.  &
          TRIM( initializing_actions ) /= 'cyclic_fill' )  THEN