Changeset 5870

Timestamp:

09/17/10 15:34:14 (15 years ago)

Author:

jschierm

Message:

Fix MaxAbsVxx to return MPI_MAX across cluster (and fix comments).

File:

• issm/trunk/src/c/modules/MaxAbsVxx/MaxAbsVxx.cpp (modified) (2 diffs)

issm/trunk/src/c/modules/MaxAbsVxx/MaxAbsVxx.cpp

@@ -19 +19 @@
         for(i=0;i<elements->Size();i++){
                 Element* element=(Element*)elements->GetObjectByOffset(i);
-                element->MaxAbsVx(&element_maxabsvx,process_units); //go pick up the minimum velocity in the inputs
+                element->MaxAbsVx(&element_maxabsvx,process_units); //go pick up the maximum velocity in the inputs
         
                 if(i==0)maxabsvx=element_maxabsvx; //initialize maxabsvx
@@ -32 +32 @@
 
         #ifdef _PARALLEL_
-        /*Figure out minimum across the cluster: */
-        MPI_Reduce (&maxabsvx,&node_maxabsvx,1,MPI_DOUBLE,MPI_MIN,0,MPI_COMM_WORLD );
+        /*Figure out maximum across the cluster: */
+        MPI_Reduce (&maxabsvx,&node_maxabsvx,1,MPI_DOUBLE,MPI_MAX,0,MPI_COMM_WORLD );
         MPI_Bcast(&node_maxabsvx,1,MPI_DOUBLE,0,MPI_COMM_WORLD);   
         maxabsvx=node_maxabsvx;