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

Timestamp:

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

Author:

knoop

Message:

Preliminary gust module interface implemented

File:

• palm/trunk/SOURCE/sum_up_3d_data.f90 (modified) (4 diffs)

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Preliminary gust module interface implemented
+! 
+! 2798 2018-02-09 17:16:39Z suehring
 ! Consider also default-type surfaces for surface temperature output. 
 ! 
@@ -199 +202 @@
         ONLY:  cpu_log, log_point
 
+    USE gust_mod,                                                              &
+        ONLY:  gust_3d_data_averaging, gust_module_enabled
+
     USE indices,                                                               &
         ONLY:  nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt 
@@ -512 +518 @@
                 IF ( radiation )  THEN
                    CALL radiation_3d_data_averaging( 'allocate', doav(ii) )
+                ENDIF
+
+!
+!--             Gust module quantities
+                IF ( gust_module_enabled )  THEN
+                   CALL gust_3d_data_averaging( 'allocate', doav(ii) )
                 ENDIF
 
@@ -1064 +1076 @@
 
 !
+!--          Gust module quantities
+             IF ( gust_module_enabled )  THEN
+                CALL gust_3d_data_averaging( 'sum', doav(ii) )
+             ENDIF
+
+!
 !--          Chemical quantity
              IF ( air_chemistry  .AND.  trimvar(1:3) == 'kc_')  THEN