Changeset 2964 for palm/trunk/SOURCE/modules.f90

Timestamp:

Apr 12, 2018 4:04:03 PM (6 years ago)

Author:

Giersch

Message:

Bugfix in the calculation of fixed number of output time levels for parallel netcdf output, error message related to reading sky view factors revised

File:

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

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! *_time_count variables are all initialized with zero now
+! 
+! 2918 2018-03-21 15:52:14Z gronemeier
 ! -l_grid, -l_wall
 ! 
@@ -1182 +1185 @@
     INTEGER(iwp) ::  dist_nys(0:1)                               !< south boundary of disturbance region
     INTEGER(iwp) ::  do2d_no(0:1) = 0                            !< number of 2d output quantities
-    INTEGER(iwp) ::  do2d_xy_time_count(0:1)                     !< number of output intervals for 2d data (xy)
-    INTEGER(iwp) ::  do2d_xz_time_count(0:1)                     !< number of output intervals for 2d data (xz)
-    INTEGER(iwp) ::  do2d_yz_time_count(0:1)                     !< number of output intervals for 2d data (yz)
+    INTEGER(iwp) ::  do2d_xy_time_count(0:1) = 0                 !< number of output intervals for 2d data (xy)
+    INTEGER(iwp) ::  do2d_xz_time_count(0:1) = 0                 !< number of output intervals for 2d data (xz)
+    INTEGER(iwp) ::  do2d_yz_time_count(0:1) = 0                 !< number of output intervals for 2d data (yz)
     INTEGER(iwp) ::  do3d_no(0:1) = 0                            !< number of 3d output quantities
-    INTEGER(iwp) ::  do3d_time_count(0:1)                        !< number of output intervals for 3d data
+    INTEGER(iwp) ::  do3d_time_count(0:1) = 0                    !< number of output intervals for 3d data
     INTEGER(iwp) ::  domask_no(max_masks,0:1) = 0                !< number of masked output quantities
     INTEGER(iwp) ::  domask_time_count(max_masks,0:1)            !< number of output intervals for masked data