Changeset 3014 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

May 9, 2018 8:42:38 AM (7 years ago)

Author:

maronga

Message:

series of bugfixes

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: initialization of ts_value missing
+! 
+! 3011 2018-05-07 14:38:42Z schwenkel
 ! removed redundant if statement
 ! 
@@ -1127 +1130 @@
 
 !
+!-- Initialize time series
+    ts_value = 0.0_wp
+
+!
 !-- Initialize local summation arrays for routine flow_statistics.
 !-- This is necessary because they may not yet have been initialized when they