[cig-commits] r22149 - seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D

luet at geodynamics.org luet at geodynamics.org
Tue May 28 09:18:50 PDT 2013


Author: luet
Date: 2013-05-28 09:18:50 -0700 (Tue, 28 May 2013)
New Revision: 22149

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90
Log:
introduce a syntaxt error in specfem3D.F90

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90	2013-05-28 11:50:23 UTC (rev 22148)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90	2013-05-28 16:18:50 UTC (rev 22149)
@@ -1107,7 +1107,6 @@
      NGLOB_XY = NGLOB_CRUST_MANTLE
   else
      NGLOB_XY = 1
-  endif
 
   allocate(rmassx_crust_mantle(NGLOB_XY),stat=ier)
   if( ier /= 0 ) call exit_MPI(myrank,'error allocating rmassx_crust_mantle')



More information about the CIG-COMMITS mailing list