Changeset 4429 for palm/trunk/SOURCE/advec_s_bc.f90

Timestamp:

Feb 27, 2020 3:24:30 PM (4 years ago)

Author:

raasch

Message:

serial (non-MPI) test case added, several bugfixes for the serial mode

File:

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

palm/trunk/SOURCE/advec_s_bc.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: cpp-directives added for serial mode
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
 ! 
@@ -104 +107 @@
        INTEGER(iwp) ::  j         !<
        INTEGER(iwp) ::  k         !<
+       INTEGER(iwp) ::  sr        !<
+#if defined( __parallel )
        INTEGER(iwp) ::  ngp       !<
-       INTEGER(iwp) ::  sr        !<
        INTEGER(iwp) ::  type_xz_2 !<
+#endif
 
        REAL(wp) ::  cim    !<