Changeset 151 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Mar 7, 2008 1:42:18 PM (16 years ago)

Author:

raasch

Message:

preliminary update for the turbulence recycling method

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! inflow turbulence is imposed by calling new routine inflow_turbulence
 !
 ! Former revisions:
@@ -214 +214 @@
 
 !
+!--       Impose a turbulent inflow using the recycling method
+          IF ( turbulent_inflow )  CALL  inflow_turbulence
+
+!
 !--       Impose a random perturbation on the horizontal velocity field
           IF ( create_disturbances  .AND.                                      &