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

Timestamp:

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

Author:

knoop

Message:

Preliminary gust module interface implemented

File:

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

palm/trunk/SOURCE/data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Preliminary gust module interface implemented
+! 
+! 2766 2018-01-22 17:17:47Z kanani
 ! Removed preprocessor directive __chem
 ! 
@@ -203 +206 @@
     USE cpulog,                                                                &
         ONLY:  log_point, cpu_log
+
+    USE gust_mod,                                                              &
+        ONLY: gust_data_output_3d, gust_module_enabled
         
     USE indices,                                                               &
@@ -680 +686 @@
 
 !
+!--          Gust module quantities
+             IF ( .NOT. found  .AND.  gust_module_enabled )  THEN
+                CALL gust_data_output_3d( av, do3d(av,if), found, local_pf,    &
+                                          nzb_do, nzt_do )
+                resorted = .TRUE.
+             ENDIF
+
+!
 !--          Chemistry model output
              IF ( .NOT. found  .AND.  air_chemistry )  THEN