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

Timestamp:

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

Author:

knoop

Message:

Preliminary gust module interface implemented

File:

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

palm/trunk/SOURCE/average_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Preliminary gust module interface implemented
+! 
+! 2797 2018-02-08 13:24:35Z suehring
 ! Enable output of ground-heat flux also at urban surfaces.
 ! 
@@ -142 +145 @@
         ONLY:  cpu_log, log_point
 
+    USE gust_mod,                                                              &
+        ONLY:  gust_3d_data_averaging, gust_module_enabled
+
     USE indices,                                                               &
         ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
@@ -526 +532 @@
              ENDIF
 !
+!--          Gust module quantities
+             IF ( gust_module_enabled )  THEN
+                CALL gust_3d_data_averaging( 'average', doav(ii) )
+             ENDIF
+!
 !--          Chemistry quantity
              IF ( air_chemistry )  THEN