code cleaning (removing unused parameters; using modules instead of i…

…nclude file); fix in reading poroelastic file lines; increasing precision for irregular element checks to avoid underflows
cenjinzhiyu · Jul 2, 2019 · deae983 · deae983
1 parent a811128
commit deae983
Show file tree

Hide file tree

Showing 51 changed files with 1,164 additions and 1,106 deletions.
diff --git a/src/decompose_mesh/fault_scotch.f90 b/src/decompose_mesh/fault_scotch.f90
@@ -71,7 +71,9 @@ subroutine read_fault_files(localpath_name)
     read(101,*) nbfaults
   else
     nbfaults = 0
+    print *
     print *, 'Par_file_faults not found: assuming that there are no faults'
+    print *
   endif
   close(101)
 

diff --git a/src/decompose_mesh/lts_helper.F90 b/src/decompose_mesh/lts_helper.F90
@@ -100,7 +100,7 @@ end subroutine lts_add_overlap_elements
 
   subroutine lts_save_p_level_partitions()
 
-  use constants, only: IOVTK,MAX_STRING_LEN
+  use constants, only: MAX_STRING_LEN
 
   use decompose_mesh_par, only: part, ispec_p_refine, nspec, nnodes, nodes_coords, elmnts, NGNOD, LOCAL_PATH
 

diff --git a/src/decompose_mesh/lts_setup_elements.F90 b/src/decompose_mesh/lts_setup_elements.F90
@@ -89,9 +89,12 @@ subroutine lts_setup_elements()
 
   ! user output
   if (LTS_MODE) then
+    print *
     print *,'local time stepping: turned ON'
   else
+    print *
     print *,'local time stepping: turned OFF'
+    print *
     ! nothing to do
     return
   endif