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

Timestamp:

Apr 5, 2016 7:44:00 PM (8 years ago)

Author:

raasch

Message:

preprocessor directives using machine dependent flags (lc, ibm, etc.) mostly removed from the code

File:

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

palm/trunk/SOURCE/spectrum.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! MPI module used by default on all machines
 !
 ! Former revisions:
@@ -291 +291 @@
        USE kinds
 
-#if defined( __lc )
+#if defined( __mpifh )
+       INCLUDE "mpif.h"
+#else
        USE MPI
-#else
-       INCLUDE "mpif.h"
 #endif
        USE pegrid,                                                             &
@@ -393 +393 @@
        USE kinds
 
-#if defined( __lc )
+#if defined( __mpifh )
+       INCLUDE "mpif.h"
+#else
        USE MPI
-#else
-       INCLUDE "mpif.h"
 #endif
        USE pegrid,                                                             &
@@ -534 +534 @@
        USE kinds
 
-#if defined( __lc )
+#if defined( __mpifh )
+       INCLUDE "mpif.h"
+#else
        USE MPI
-#else
-       INCLUDE "mpif.h"
 #endif
        USE pegrid,                                                             &