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

[luet at geodynamics.org]

Author: luet
Date: 2013-04-17 14:55:59 -0700 (Wed, 17 Apr 2013)
New Revision: 21883

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90
Log:
introduced syntax error

Modified: seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90	2013-04-17 17:04:49 UTC (rev 21882)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90	2013-04-17 21:55:59 UTC (rev 21883)
@@ -2455,7 +2455,7 @@
            hprime_xx,hprime_xxT,hprimewgll_xx,hprimewgll_xxT, &
            wgllwgll_xy,wgllwgll_xz,wgllwgll_yz,wgll_cube, &
            ibool_outer_core,MOVIE_VOLUME)
-    else
+    els
       ! div_displ_outer_core is initialized to zero in the following subroutine.
       call compute_forces_outer_core(time,deltat,two_omega_earth, &
            A_array_rotation,B_array_rotation,d_ln_density_dr_table, &