[cig-commits] [commit] devel: Very last modification for coupling with DSM (57f2934)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/0479069f470e39347345ab3d4aff453320ac453e...57f2934cebe2e3d82d758afd2da6bf77d96c901d

>---------------------------------------------------------------

commit 57f2934cebe2e3d82d758afd2da6bf77d96c901d
Author: Clément Durochat <c.durochat at gmail.com>
Date:   Tue Oct 21 16:27:19 2014 +0200

    Very last modification for coupling with DSM


>---------------------------------------------------------------

57f2934cebe2e3d82d758afd2da6bf77d96c901d
 src/specfem3D/read_mesh_databases.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/specfem3D/read_mesh_databases.F90 b/src/specfem3D/read_mesh_databases.F90
index e8c3b7d..bb4017d 100644
--- a/src/specfem3D/read_mesh_databases.F90
+++ b/src/specfem3D/read_mesh_databases.F90
@@ -472,9 +472,9 @@
   if (COUPLE_WITH_EXTERNAL_CODE) then
     allocate(Veloc_dsm_boundary(3,Ntime_step_dsm,NGLLSQUARE,num_abs_boundary_faces))
     allocate(Tract_dsm_boundary(3,Ntime_step_dsm,NGLLSQUARE,num_abs_boundary_faces))
-    if(I_should_read_the_database) open(unit=IIN_veloc_dsm,file=dsmname(1:len_trim(dsmname))//'vel.bin',status='old', &
+    open(unit=IIN_veloc_dsm,file=dsmname(1:len_trim(dsmname))//'vel.bin',status='old', &
          action='read',form='unformatted',iostat=ier)
-    if(I_should_read_the_database) open(unit=IIN_tract_dsm,file=dsmname(1:len_trim(dsmname))//'tract.bin',status='old', &
+    open(unit=IIN_tract_dsm,file=dsmname(1:len_trim(dsmname))//'tract.bin',status='old', &
          action='read',form='unformatted',iostat=ier)
   else
     allocate(Veloc_dsm_boundary(1,1,1,1))