Changeset 3994 for palm/trunk/SOURCE/write_restart_data_mod.f90

Timestamp:

May 22, 2019 6:08:09 PM (5 years ago)

Author:

suehring

Message:

new module for diagnostic output quantities added + output of turbulence intensity

File:

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

palm/trunk/SOURCE/write_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! output of turbulence intensity added
+! 
+! 3988 2019-05-22 11:32:37Z kanani
 ! + time_virtual_measurement (to enable steering of output interval)
 ! 
@@ -92 +95 @@
         ONLY:  day_of_year_init, time_utc_init
 
+    USE diagnostic_output_quantities_mod,                                      &
+        ONLY:  ti_av
+
     USE grid_variables,                                                        &
         ONLY:  dx, dy
@@ -1076 +1082 @@
        ENDIF
 
+       IF ( ALLOCATED( ti_av ) )  THEN
+          CALL wrd_write_string( 'ti_av' ) 
+          WRITE ( 14 )  ti_av
+       ENDIF
+
        IF ( ALLOCATED( ts_av ) )  THEN
           CALL wrd_write_string( 'ts_av' )