Changeset 1815 for palm/trunk/SOURCE/spectrum.f90

Timestamp:

Apr 6, 2016 1:49:59 PM (8 years ago)

Author:

raasch

Message:

cpp-switches removed + cpp-bugfixes + zero-settings for velocities inside topography re-activated

File:

• palm/trunk/SOURCE/spectrum.f90 (modified) (4 diffs)

palm/trunk/SOURCE/spectrum.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! bugfix: preprocessor directives included for the non-parallel case
 !
 ! Former revisions:
@@ -294 +294 @@
        USE kinds
 
+#if defined( __parallel )
 #if defined( __mpifh )
        INCLUDE "mpif.h"
 #else
        USE MPI
+#endif
 #endif
        USE pegrid,                                                             &
@@ -396 +398 @@
        USE kinds
 
+#if defiend( __parallel )
 #if defined( __mpifh )
        INCLUDE "mpif.h"
 #else
        USE MPI
+#endif
 #endif
        USE pegrid,                                                             &
@@ -537 +541 @@
        USE kinds
 
+#if defined( __parallel )
 #if defined( __mpifh )
        INCLUDE "mpif.h"
 #else
        USE MPI
+#endif
 #endif
        USE pegrid,                                                             &