[cig-commits] r16820 - seismo/3D/SPECFEM3D_SESAME/trunk

[pieyre at geodynamics.org]

Author: pieyre
Date: 2010-05-28 01:21:20 -0700 (Fri, 28 May 2010)
New Revision: 16820

Modified:
   seismo/3D/SPECFEM3D_SESAME/trunk/read_mesh_databases.f90
Log:
fix in the computation of min and max of latitude and longitude of the model 


Modified: seismo/3D/SPECFEM3D_SESAME/trunk/read_mesh_databases.f90
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/trunk/read_mesh_databases.f90	2010-05-28 04:03:08 UTC (rev 16819)
+++ seismo/3D/SPECFEM3D_SESAME/trunk/read_mesh_databases.f90	2010-05-28 08:21:20 UTC (rev 16820)
@@ -354,15 +354,15 @@
   maxl = maxval( xstore )
   call min_all_all_cr(minl,min_all)
   call max_all_all_cr(maxl,max_all)
-  LATITUDE_MIN = min_all
-  LATITUDE_MAX = max_all
+  LONGITUDE_MIN = min_all
+  LONGITUDE_MAX = max_all
 
   minl = minval( ystore )
   maxl = maxval( ystore )
   call min_all_all_cr(minl,min_all)
   call max_all_all_cr(maxl,max_all)
-  LONGITUDE_MIN = min_all
-  LONGITUDE_MAX = max_all
+  LATITUDE_MIN = min_all
+  LATITUDE_MAX = max_all
   
 ! check courant criteria on mesh
   if( ELASTIC_SIMULATION ) then