[cig-commits] r22152 - seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D
luet at geodynamics.org
luet at geodynamics.org
Tue May 28 09:38:14 PDT 2013
Author: luet
Date: 2013-05-28 09:38:14 -0700 (Tue, 28 May 2013)
New Revision: 22152
Modified:
seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90
Log:
Fixed syntax error in specfem3D.F90- try 2
Modified: seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90 2013-05-28 16:32:58 UTC (rev 22151)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90 2013-05-28 16:38:14 UTC (rev 22152)
@@ -1107,7 +1107,7 @@
NGLOB_XY = NGLOB_CRUST_MANTLE
else
NGLOB_XY = 1
- end
+ 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