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

palm/trunk/SOURCE/init_coupling.f90

@@ -25 +25 @@
 ! ------------------
 ! $Id$
+! bugfix: cpp-directives for serial mode added
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
 ! 
@@ -54 +57 @@
 !
 !-- Local variables
+#if defined( __parallel )
     INTEGER(iwp) ::  i            !<
     INTEGER(iwp) ::  inter_color  !<
+#endif
     
     INTEGER(iwp), DIMENSION(:) ::  bc_data(0:3) = 0  !<