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

Timestamp:

Apr 13, 2018 11:22:08 AM (6 years ago)

Author:

raasch

Message:

bugfix: missing parallel cpp-directives added

File:

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

palm/trunk/SOURCE/lpm_write_exchange_statistics.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! nesting routine is only called if nesting is switched on
+! bugfix: missing parallel cpp-directives added
+! 
+! 2841 2018-02-27 15:02:57Z knoop
 ! Bugfix: wrong placement of include 'mpif.h' corrected,
 ! kinds module added and pegrid module scope restricted
@@ -76 +80 @@
  SUBROUTINE lpm_write_exchange_statistics
 
-#if !defined( __mpifh )
+#if defined( __parallel )  &&  !defined( __mpifh )
     USE MPI
 #endif
@@ -100 +104 @@
         ONLY:  comm2d, ierr, pleft, pright, psouth, pnorth
 
+    USE pmc_interface,                                                         &
+        ONLY: nested_run
+
     IMPLICIT NONE
 
-#if defined( __mpifh )
+#if defined( __parallel )  &&  defined( __mpifh )
     INCLUDE "mpif.h"
 #endif
@@ -140 +147 @@
 
     IF ( number_of_particles > 0 ) THEN
-        WRITE(9,*) 'number_of_particles ', number_of_particles, current_timestep_number + 1, simulated_time + dt_3d
+        WRITE(9,*) 'number_of_particles ', number_of_particles,                &
+                    current_timestep_number + 1, simulated_time + dt_3d
     ENDIF
 
 #if defined( __parallel )
-    CALL MPI_ALLREDUCE( number_of_particles, tot_number_of_particles, 1, MPI_INTEGER,      &
-                                    MPI_SUM, comm2d, ierr)
+    CALL MPI_ALLREDUCE( number_of_particles, tot_number_of_particles, 1,       &
+                        MPI_INTEGER, MPI_SUM, comm2d, ierr )
 #else
     tot_number_of_particles = number_of_particles
 #endif
 
-    CALL pmcp_g_print_number_of_particles (simulated_time+dt_3d, tot_number_of_particles)
+    IF ( nested_run )  THEN
+       CALL pmcp_g_print_number_of_particles( simulated_time+dt_3d,            &
+                                              tot_number_of_particles)
+    ENDIF
 
 !