[cig-commits] r20447 - seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-06-30 17:41:31 -0700 (Sat, 30 Jun 2012)
New Revision: 20447

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90
Log:
improved a modification I had made to suppress a warning with the Cray compiler


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90	2012-07-01 00:37:37 UTC (rev 20446)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90	2012-07-01 00:41:31 UTC (rev 20447)
@@ -174,8 +174,8 @@
 !! DK DK  itheta = int(theta + pxy0)/pxy0
 !! DK DK  ilon = int(phi + pxy0)/pxy0
 !! DK DK fixed that because the above contained an automatic conversion from real to int
-  itheta = int((theta + pxy0)/pxy0)
-  ilon = int((phi + pxy0)/pxy0)
+  itheta = int(int(theta + pxy0)/pxy0)
+  ilon = int(int(phi + pxy0)/pxy0)
   tet = theta
   ph = phi