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

[luet at geodynamics.org]

Author: luet
Date: 2013-04-17 15:02:08 -0700 (Wed, 17 Apr 2013)
New Revision: 21886

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90
Log:
fixed the 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 22:01:19 UTC (rev 21885)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/buildbot/src/specfem3D/specfem3D.F90	2013-04-17 22:02:08 UTC (rev 21886)
@@ -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)
-    el
+    else
       ! 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, &