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

Timestamp:

Jun 10, 2020 4:27:30 PM (4 years ago)

Author:

moh.hefny

Message:

Bugfix in RTM output average quantities

File:

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

palm/trunk/SOURCE/average_3d_data.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! bugfix: average_count_3d is set to integer 0
+! 
+! 4514 2020-04-30 16:29:59Z suehring
 ! Enable output of qsurf and ssurf
 ! 
@@ -463 +466 @@
 !
 !-- Reset the counter
-    average_count_3d = 0.0
+    average_count_3d = 0_iwp
 
     CALL cpu_log( log_point(35), 'average_3d_data', 'stop' )