[cig-commits] r8530 - seismo/2D/SPECFEM2D/trunk

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:53:56 -0800 (Fri, 07 Dec 2007)
New Revision: 8530

Modified:
   seismo/2D/SPECFEM2D/trunk/TODO_list
   seismo/2D/SPECFEM2D/trunk/meshfem2D.F90
   seismo/2D/SPECFEM2D/trunk/part_unstruct.F90
   seismo/2D/SPECFEM2D/trunk/specfem2D.F90
Log:
shortened some subroutine names to avoid compilation warnings.

Modified: seismo/2D/SPECFEM2D/trunk/TODO_list
===================================================================
--- seismo/2D/SPECFEM2D/trunk/TODO_list	2007-06-26 00:47:14 UTC (rev 8529)
+++ seismo/2D/SPECFEM2D/trunk/TODO_list	2007-12-07 23:53:56 UTC (rev 8530)
@@ -12,4 +12,5 @@
 - modifying scripts for UPPA cluster (when FS sync issues are solved and remote commands are available).
 - manual for unstructured meshes.
 - getting rid of constants_unstruct.h.
-- enabling use of real or double precision.
\ No newline at end of file
+- enabling use of real or double precision.
+- addressing all warnings (particularly with ifort due to symbols that have too many characters).
\ No newline at end of file

Modified: seismo/2D/SPECFEM2D/trunk/meshfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/meshfem2D.F90	2007-06-26 00:47:14 UTC (rev 8529)
+++ seismo/2D/SPECFEM2D/trunk/meshfem2D.F90	2007-12-07 23:53:56 UTC (rev 8530)
@@ -1089,7 +1089,7 @@
           glob2loc_nodes_nparts, glob2loc_nodes_parts, glob2loc_nodes, part, 1)
      
 
-     call write_acoustic_elastic_edges_database(15, nedges_coupled, nedges_coupled_loc, &
+     call write_fluidsolid_edges_database(15, nedges_coupled, nedges_coupled_loc, &
           edges_coupled, glob2loc_elmnts, nelmnts, part, iproc, 1)
      
      write(15,*) 'nelemabs nelem_acoustic_surface num_fluid_solid_edges'
@@ -1145,7 +1145,7 @@
      
 
      write(15,*) 'List of acoustic elastic coupled edges:'
-     call write_acoustic_elastic_edges_database(15, nedges_coupled, nedges_coupled_loc, &
+     call write_fluidsolid_edges_database(15, nedges_coupled, nedges_coupled_loc, &
           edges_coupled, glob2loc_elmnts, nelmnts, part, iproc, 2)
   end do
   

Modified: seismo/2D/SPECFEM2D/trunk/part_unstruct.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/part_unstruct.F90	2007-06-26 00:47:14 UTC (rev 8529)
+++ seismo/2D/SPECFEM2D/trunk/part_unstruct.F90	2007-12-07 23:53:56 UTC (rev 8530)
@@ -1515,7 +1515,7 @@
   
 
 
-subroutine write_acoustic_elastic_edges_database(IIN_database, nedges_coupled, nedges_coupled_loc, &
+subroutine write_fluidsolid_edges_database(IIN_database, nedges_coupled, nedges_coupled_loc, &
      edges_coupled, glob2loc_elmnts, nelmnts,part, iproc, num_phase)
        
   implicit none
@@ -1552,7 +1552,7 @@
   end if
   
   
-end subroutine write_acoustic_elastic_edges_database
+end subroutine write_fluidsolid_edges_database
 
 
 

Modified: seismo/2D/SPECFEM2D/trunk/specfem2D.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-06-26 00:47:14 UTC (rev 8529)
+++ seismo/2D/SPECFEM2D/trunk/specfem2D.F90	2007-12-07 23:53:56 UTC (rev 8530)
@@ -831,9 +831,9 @@
   if(TURN_ATTENUATION_ON .and. .not. any_elastic) call exit_MPI('currently cannot have attenuation if acoustic simulation only')
 
 ! for attenuation
-  if(TURN_ANISOTROPY_ON .and. TURN_ATTENUATION_ON) call exit_MPI('cannot have anisotropy and attenuation both &
-      & turned on in current version')
-
+  if(TURN_ANISOTROPY_ON .and. TURN_ATTENUATION_ON) then
+    call exit_MPI('cannot have anisotropy and attenuation both turned on in current version')
+  end if 
 !
 !----   define coefficients of the Newmark time scheme
 !