Changeset 623 for palm/trunk/SOURCE/global_min_max.f90

Timestamp:

Dec 10, 2010 8:52:17 AM (13 years ago)

Author:

raasch

Message:

last commit documented

File:

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

palm/trunk/SOURCE/global_min_max.f90

@@ -2 +2 @@
                             value_ijk, value1, value1_ijk )
 
-!-------------------------------------------------------------------------------!
+!------------------------------------------------------------------------------!
 ! Current revisions:
 ! -----------------
-! optional barriers included in order to speed up collective operations
+! 
 !
 ! Former revisions:
 ! -----------------
 ! $Id$
+!
+! 622 2010-12-10 08:08:13Z raasch
+! optional barriers included in order to speed up collective operations
+!
+! Feb. 2007
 ! RCS Log replace by Id keyword, revision history cleaned up
 !
@@ -22 +27 @@
 ! ------------
 ! Determine the array minimum/maximum and the corresponding indices.
-!-------------------------------------------------------------------------------!
+!------------------------------------------------------------------------------!
 
     USE indices
@@ -62 +67 @@
        fmin_l(2)  = myid
        IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
-       CALL MPI_ALLREDUCE( fmin_l, fmin, 1, MPI_2REAL, MPI_MINLOC, comm2d, ierr )
+       CALL MPI_ALLREDUCE( fmin_l, fmin, 1, MPI_2REAL, MPI_MINLOC, comm2d, &
+                           ierr )
 
 !
@@ -102 +108 @@
        fmax_l(2)  = myid
        IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
-       CALL MPI_ALLREDUCE( fmax_l, fmax, 1, MPI_2REAL, MPI_MAXLOC, comm2d, ierr )
+       CALL MPI_ALLREDUCE( fmax_l, fmax, 1, MPI_2REAL, MPI_MAXLOC, comm2d, &
+                           ierr )
 
 !