Changeset 4444 for palm/trunk/SOURCE/data_output_2d.f90

Timestamp:

Mar 5, 2020 3:59:50 PM (4 years ago)

Author:

raasch

Message:

bugfix: cpp-directives for serial mode added

File:

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

palm/trunk/SOURCE/data_output_2d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives for serial mode added
+! 
+! 4442 2020-03-04 19:21:13Z suehring
 ! Change order of dimension in surface array %frac to allow for better 
 ! vectorization.
@@ -152 +155 @@
     INTEGER(iwp) ::  flag_nr   !< number of masking flag
     INTEGER(iwp) ::  i         !< loop index
-    INTEGER(iwp) ::  iis       !< vertical index of a xy slice in array 'local_2d_sections'
     INTEGER(iwp) ::  is        !< slice index
     INTEGER(iwp) ::  ivar      !< variable index
@@ -166 +168 @@
     INTEGER(iwp) ::  nzt_do    !< upper limit of the data field (usually nzt+1)
     INTEGER(iwp) ::  s_ind     !< index of slice types (xy=1, xz=2, yz=3)
+#if defined( __parallel )
+    INTEGER(iwp) ::  iis       !< vertical index of a xy slice in array 'local_2d_sections'
     INTEGER(iwp) ::  sender    !< PE id of sending PE
     INTEGER(iwp) ::  ind(4)    !< index limits (lower/upper bounds) of array 'local_2d'
+#endif
 
     LOGICAL ::  found          !< true if output variable was found