Changeset 2841 for palm/trunk/SOURCE/lpm_write_exchange_statistics.f90

Timestamp:

Feb 27, 2018 3:02:57 PM (6 years ago)

Author:

knoop

Message:

Bugfix: wrong placement of include 'mpif.h' corrected

File:

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

palm/trunk/SOURCE/lpm_write_exchange_statistics.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: wrong placement of include 'mpif.h' corrected,
+! kinds module added and pegrid module scope restricted
+! 
+! 2801 2018-02-14 16:01:55Z thiele
 ! Introduce particle transfer in nested models.
 ! 
@@ -71 +75 @@
 !------------------------------------------------------------------------------!
  SUBROUTINE lpm_write_exchange_statistics
- 
+
+#if !defined( __mpifh )
     USE MPI
+#endif
 
     USE control_parameters,                                                    &
@@ -79 +85 @@
     USE indices,                                                               &
         ONLY:  nxl, nxr, nys, nyn, nzb, nzt
+
+    USE kinds
 
     USE particle_attributes,                                                   &
@@ -89 +97 @@
         ONLY:  pmcp_g_print_number_of_particles
 
-    USE pegrid
+    USE pegrid,                                                                &
+        ONLY:  comm2d, ierr, pleft, pright, psouth, pnorth
 
     IMPLICIT NONE
+
+#if defined( __mpifh )
+    INCLUDE "mpif.h"
+#endif
 
     INTEGER(iwp) :: ip         !<