Changeset 2817 for palm/trunk/SOURCE/header.f90

Timestamp:

Feb 19, 2018 4:32:21 PM (6 years ago)

Author:

knoop

Message:

Preliminary gust module interface implemented

File:

• palm/trunk/SOURCE/header.f90 (modified) (3 diffs)

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Preliminary gust module interface implemented
+! 
+! 2776 2018-01-31 10:44:42Z Giersch
 ! Variable synthetic_turbulence_generator has been abbreviated
 ! 
@@ -371 +374 @@
     USE grid_variables,                                                        &
         ONLY:  dx, dy
+
+    USE gust_mod,                                                              &
+        ONLY: gust_header, gust_module_enabled
         
     USE indices,                                                               &
@@ -1023 +1029 @@
 
     IF ( radiation )  CALL radiation_header ( io )
+
+    IF ( gust_module_enabled )  CALL gust_header ( io )
 
 !