release version: v0.2.1

seismology-RUB · Mar 20, 2019 · d39a396 · d39a396
1 parent e20fd88
commit d39a396
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/src/timeloopMod.f90 b/src/timeloopMod.f90
@@ -687,9 +687,7 @@ subroutine timeloop2d(par,mesh,src,rec,lsi, lsi_spec, lsipar, etolsi, movie, myr
                                 stf_val_diff=(1.+rk_time)*plotDiffstf(it,2,i)-rk_time*plotDiffstf(it-1,2,i)
                             endif
                         end if
-                    enddo
 
-                    do i=1,src%nsrc
                         if (src%srctype(i)==0) then
                             srcArray(:,1,i)=srcInt(:,i)*(-sin((src%srcangle_force(i)*PI)/180.)*stf_val)/mesh%rho(src%srcelem(i))
                             srcArray(:,2,i)=srcInt(:,i)*(+cos((src%srcangle_force(i)*PI)/180.)*stf_val)/mesh%rho(src%srcelem(i))