[cig-commits] r13004 - seismo/3D/SPECFEM3D/branches/update_temporary

nlegoff at geodynamics.org nlegoff at geodynamics.org
Wed Oct 8 14:44:16 PDT 2008


Author: nlegoff
Date: 2008-10-08 14:44:16 -0700 (Wed, 08 Oct 2008)
New Revision: 13004

Modified:
   seismo/3D/SPECFEM3D/branches/update_temporary/constants.h.in
   seismo/3D/SPECFEM3D/branches/update_temporary/locate_receivers.f90
   seismo/3D/SPECFEM3D/branches/update_temporary/specfem3D.f90
Log:
fixed a symbol with too long a name.

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/constants.h.in
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/constants.h.in	2008-10-08 20:25:06 UTC (rev 13003)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/constants.h.in	2008-10-08 21:44:16 UTC (rev 13004)
@@ -127,7 +127,7 @@
   logical, parameter :: FASTER_SOURCES_POINTS_ONLY = .false.
 
 ! the receivers can be located inside the model 
-  logical, parameter :: RECEIVERS_CAN_BE_BURIED_EXT_MESH = .true.
+  logical, parameter :: RECVS_CAN_BE_BURIED_EXT_MESH = .true.
   logical, parameter :: SOURCES_CAN_BE_BURIED_EXT_MESH = .true.
 
 !

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/locate_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/locate_receivers.f90	2008-10-08 20:25:06 UTC (rev 13003)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/locate_receivers.f90	2008-10-08 21:44:16 UTC (rev 13004)
@@ -321,7 +321,7 @@
 
             iglob = ibool(i,j,k,ispec)
             
-            if (USE_EXTERNAL_MESH .and. (.not. RECEIVERS_CAN_BE_BURIED_EXT_MESH)) then
+            if (USE_EXTERNAL_MESH .and. (.not. RECVS_CAN_BE_BURIED_EXT_MESH)) then
               if ((.not. iglob_is_surface_external_mesh(iglob)) .or. (.not. ispec_is_surface_external_mesh(ispec))) then
                 cycle
               endif
@@ -360,7 +360,7 @@
       enddo
 
 ! get normal to the face of the hexaedra if receiver is on the surface
-  if (USE_EXTERNAL_MESH .and. (.not. RECEIVERS_CAN_BE_BURIED_EXT_MESH)) then
+  if (USE_EXTERNAL_MESH .and. (.not. RECVS_CAN_BE_BURIED_EXT_MESH)) then
     pt0_ix = -1
     pt0_iy = -1
     pt0_iz = -1
@@ -493,7 +493,7 @@
       nu(3,2,irec) = v_vector(3)
       nu(3,3,irec) = w_vector(3)
 
-  endif ! of if (USE_EXTERNAL_MESH .and. (.not. RECEIVERS_CAN_BE_BURIED_EXT_MESH))
+  endif ! of if (USE_EXTERNAL_MESH .and. (.not. RECVS_CAN_BE_BURIED_EXT_MESH))
 
 ! end of loop on all the stations
   enddo

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/specfem3D.f90	2008-10-08 20:25:06 UTC (rev 13003)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/specfem3D.f90	2008-10-08 21:44:16 UTC (rev 13004)
@@ -916,7 +916,7 @@
   allocate(ispec_is_surface_external_mesh(NSPEC_AB))
   allocate(iglob_is_surface_external_mesh(NGLOB_AB))
 
-  if (.not. RECEIVERS_CAN_BE_BURIED_EXT_MESH) then
+  if (.not. RECVS_CAN_BE_BURIED_EXT_MESH) then
   valence_external_mesh(:) = 0
   ispec_is_surface_external_mesh(:) = .false.
   iglob_is_surface_external_mesh(:) = .false.



More information about the cig-commits mailing list