Changeset 4444 for palm/trunk/SOURCE/init_masks.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/init_masks.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_masks.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives for serial mode added
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
 ! 
@@ -100 +103 @@
     INTEGER(iwp) ::  i            !< loop index
     INTEGER(iwp) ::  ilen         !< length of string saved in 'do_mask'
-    INTEGER(iwp) ::  ind(6)       !< index limits (lower/upper bounds) of output array
     INTEGER(iwp) ::  ind_array(1) !< array index
     INTEGER(iwp) ::  j            !< loop index
@@ -106 +108 @@
     INTEGER(iwp) ::  m            !< mask index
     INTEGER(iwp) ::  mid            !< masked output running index
+#if defined( __parallel )
+    INTEGER(iwp) ::  ind(6)       !< index limits (lower/upper bounds) of output array
     INTEGER(iwp) ::  n            !< loop index
     INTEGER(iwp) ::  sender       !< PE id of sending PE
+#endif
     
     INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  tmp_array !< temporary 1D array