[cig-commits] r20438 - in seismo/3D/SPECFEM3D_GLOBE/trunk: . src/meshfem3D

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-06-29 08:41:20 -0700 (Fri, 29 Jun 2012)
New Revision: 20438

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/flags.guess
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90
Log:
added support for the Cray compiler; fixed a warning detected on Cray


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/flags.guess
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/flags.guess	2012-06-29 15:40:32 UTC (rev 20437)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/flags.guess	2012-06-29 15:41:20 UTC (rev 20438)
@@ -13,6 +13,17 @@
 fi
 
 case $FC in
+    crayftn|*/crayftn)
+        #
+        # Cray Fortran
+        #
+        if test x"$FLAGS_CHECK" = x; then
+            FLAGS_CHECK="-eC -eD"  # turn on full debugging and range checking
+        fi
+        if test x"$FLAGS_NO_CHECK" = x; then
+            FLAGS_NO_CHECK="\$(FLAGS_CHECK)"
+        fi
+        ;;
     pgf90|*/pgf90)
         #
         # Beowulf Portland pgf90

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90	2012-06-29 15:40:32 UTC (rev 20437)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/model_aniso_mantle.f90	2012-06-29 15:41:20 UTC (rev 20438)
@@ -171,8 +171,11 @@
 ! dimensionalize
   depth = R_EARTH_KM*(R_UNIT_SPHERE - r)
   if(depth <= pro(nz0) .or. depth >= pro(1)) call exit_MPI_without_rank('r out of range in build_cij')
-  itheta = int(theta + pxy0)/pxy0
-  ilon = int(phi + pxy0)/pxy0
+!! 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)
   tet = theta
   ph = phi