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

Timestamp:

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

Author:

knoop

Message:

Preliminary gust module interface implemented

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Preliminary gust module interface implemented
+! 
+! 2776 2018-01-31 10:44:42Z Giersch
 ! Variable use_synthetic_turbulence_generator has been abbreviated
 ! 
@@ -433 +436 @@
     USE grid_variables,                                                        &
         ONLY:  dx, dy, ddx2_mg, ddy2_mg
+
+    USE gust_mod,                                                              &
+        ONLY:  gust_init, gust_init_arrays, gust_module_enabled
     
     USE indices
@@ -455 +461 @@
 
     USE netcdf_interface,                                                      &
-        ONLY:  dots_max, dots_num
+        ONLY:  dots_max, dots_num, dots_unit, dots_label
 
     USE netcdf_data_input_mod,                                                  &
@@ -1029 +1035 @@
        CALL wtm_init_arrays
     ENDIF
-    
+!
+!-- Allocate gust module arrays
+    IF ( gust_module_enabled )  THEN
+       CALL gust_init_arrays
+    ENDIF
+
 !
 !-- Initialize virtual flight measurements
@@ -2377 +2388 @@
     ENDIF
 
+!
+!-- If required, initialize quantities needed for the gust module
+    IF ( gust_module_enabled )  THEN
+       CALL gust_init( dots_label, dots_unit, dots_num, dots_max )
+    ENDIF
 
 !