Ignore:
Timestamp:
Dec 10, 2010 8:52:17 AM (11 years ago)
Author:
raasch
Message:

last commit documented

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/global_min_max.f90

    r622 r623  
    22                            value_ijk, value1, value1_ijk )
    33
    4 !-------------------------------------------------------------------------------!
     4!------------------------------------------------------------------------------!
    55! Current revisions:
    66! -----------------
    7 ! optional barriers included in order to speed up collective operations
     7!
    88!
    99! Former revisions:
    1010! -----------------
    1111! $Id$
     12!
     13! 622 2010-12-10 08:08:13Z raasch
     14! optional barriers included in order to speed up collective operations
     15!
     16! Feb. 2007
    1217! RCS Log replace by Id keyword, revision history cleaned up
    1318!
     
    2227! ------------
    2328! Determine the array minimum/maximum and the corresponding indices.
    24 !-------------------------------------------------------------------------------!
     29!------------------------------------------------------------------------------!
    2530
    2631    USE indices
     
    6267       fmin_l(2)  = myid
    6368       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    64        CALL MPI_ALLREDUCE( fmin_l, fmin, 1, MPI_2REAL, MPI_MINLOC, comm2d, ierr )
     69       CALL MPI_ALLREDUCE( fmin_l, fmin, 1, MPI_2REAL, MPI_MINLOC, comm2d, &
     70                           ierr )
    6571
    6672!
     
    102108       fmax_l(2)  = myid
    103109       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
    104        CALL MPI_ALLREDUCE( fmax_l, fmax, 1, MPI_2REAL, MPI_MAXLOC, comm2d, ierr )
     110       CALL MPI_ALLREDUCE( fmax_l, fmax, 1, MPI_2REAL, MPI_MAXLOC, comm2d, &
     111                           ierr )
    105112
    106113!
Note: See TracChangeset for help on using the changeset viewer.