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

Timestamp:

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

Author:

knoop

Message:

Preliminary gust module interface implemented

File:

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

palm/trunk/SOURCE/flow_statistics.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Preliminary gust module interface implemented
+! 
+! 2773 2018-01-30 14:12:54Z suehring
 ! Timeseries output of surface temperature.
 ! 
@@ -283 +286 @@
     USE grid_variables,                                                        &
         ONLY:   ddx, ddy
+
+    USE gust_mod,                                                              &
+        ONLY:  gust_module_enabled, gust_statistics
         
     USE indices,                                                               &
@@ -297 +303 @@
 
     USE netcdf_interface,                                                      &
-        ONLY:  dots_rad, dots_soil
+        ONLY:  dots_rad, dots_soil, dots_max
 
     USE pegrid
@@ -1742 +1748 @@
              ENDDO
           ENDDO
+       ENDIF
+!
+!--    Calculate the gust module profiles
+       IF ( gust_module_enabled )  THEN
+          CALL gust_statistics( 'profiles', sr, tn, dots_max )
        ENDIF
 !
@@ -2156 +2167 @@
 
 !
+!--    Calculate additional statistics provided by the gust module
+       IF ( gust_module_enabled )  THEN
+          CALL gust_statistics( 'time_series', sr, 0, dots_max )
+       ENDIF
+
+!
 !--    Calculate additional statistics provided by the user interface
        CALL user_statistics( 'time_series', sr, 0 )