Changeset 2259 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Jun 8, 2017 9:09:11 AM (7 years ago)

Author:

gronemeier

Message:

Implemented synthetic turbulence generator

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!  
+! 
 ! 
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Implemented synthetic turbulence generator
+!
+! 2251 2017-06-06 15:10:46Z Giersch
 !
 ! 2250 2017-06-06 15:07:12Z Giersch
@@ -499 +502 @@
     USE subsidence_mod
     USE statistics
+    USE synthetic_turbulence_generator_mod,                                    &
+        ONLY:  stg_check_parameters
     USE transpose_indices
     USE urban_surface_mod,                                                     &
@@ -1207 +1212 @@
     ENDIF
 
+!
+!-- When synthetic turbulence generator is used, peform addtional checks
+    IF ( synthetic_turbulence_generator )  CALL stg_check_parameters
 !
 !-- When plant canopy model is used, peform addtional checks