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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2012-12-13 08:13:02 -0800 (Thu, 13 Dec 2012)
New Revision: 21142

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_coordinates_grid.f90
Log:
removed useless semicolons


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_coordinates_grid.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_coordinates_grid.f90	2012-12-13 14:45:02 UTC (rev 21141)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/src/meshfem3D/compute_coordinates_grid.f90	2012-12-13 16:13:02 UTC (rev 21142)
@@ -315,13 +315,13 @@
   fact_y = 2.d0*ratio_y-1.d0
   fact_z = 2.d0*ratio_z-1.d0
 
-  xi = PI_OVER_TWO*fact_x;
-  eta = PI_OVER_TWO*fact_y;
-  gamma = PI_OVER_TWO*fact_z;
+  xi = PI_OVER_TWO*fact_x
+  eta = PI_OVER_TWO*fact_y
+  gamma = PI_OVER_TWO*fact_z
 
-  xgrid_central_cube = radius_cube * fact_x * (1 + (cos(eta)+cos(gamma))*CENTRAL_CUBE_INFLATE_FACTOR / PI);
-  ygrid_central_cube = radius_cube * fact_y * (1 + (cos(xi)+cos(gamma))*CENTRAL_CUBE_INFLATE_FACTOR / PI);
-  zgrid_central_cube = radius_cube * fact_z * (1 + (cos(xi)+cos(eta))*CENTRAL_CUBE_INFLATE_FACTOR / PI);
+  xgrid_central_cube = radius_cube * fact_x * (1 + (cos(eta)+cos(gamma))*CENTRAL_CUBE_INFLATE_FACTOR / PI)
+  ygrid_central_cube = radius_cube * fact_y * (1 + (cos(xi)+cos(gamma))*CENTRAL_CUBE_INFLATE_FACTOR / PI)
+  zgrid_central_cube = radius_cube * fact_z * (1 + (cos(xi)+cos(eta))*CENTRAL_CUBE_INFLATE_FACTOR / PI)
 
   end subroutine compute_coord_central_cube