[cig-commits] r13473 - seismo/3D/ADJOINT_TOMO/iterate_adj/SEM2D_iterate/src

[carltape at geodynamics.org]

Author: carltape
Date: 2008-12-08 12:23:42 -0800 (Mon, 08 Dec 2008)
New Revision: 13473

Modified:
   seismo/3D/ADJOINT_TOMO/iterate_adj/SEM2D_iterate/src/wave2d.f90
Log:
Added an initialization fix for utm_geo that appeared when Hejun ran the code at Princeton.


Modified: seismo/3D/ADJOINT_TOMO/iterate_adj/SEM2D_iterate/src/wave2d.f90
===================================================================
--- seismo/3D/ADJOINT_TOMO/iterate_adj/SEM2D_iterate/src/wave2d.f90	2008-12-08 13:31:14 UTC (rev 13472)
+++ seismo/3D/ADJOINT_TOMO/iterate_adj/SEM2D_iterate/src/wave2d.f90	2008-12-08 20:23:42 UTC (rev 13473)
@@ -547,7 +547,9 @@
      ! determine the UTM coordinates of your origin and corners  
      if(ISURFACE==1) then
 
-        call utm_geo(LON_MIN,LAT_MIN,utm_xmin,utm_zmin,UTM_PROJECTION_ZONE,ILONGLAT2UTM)
+        utm_xmin = 0.0 ; utm_zmin = 0.0
+        xtemp = LON_MIN ; ztemp = LAT_MIN
+        call utm_geo(xtemp,ztemp,utm_xmin,utm_zmin,UTM_PROJECTION_ZONE,ILONGLAT2UTM)
         corners_utm_x(1) = utm_xmin
         corners_utm_z(1) = utm_zmin
         corners_utm_x(2) = utm_xmin + LENGTH