[cig-commits] r11784 - seismo/3D/SPECFEM3D_GLOBE/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-04-09 09:21:30 -0700 (Wed, 09 Apr 2008)
New Revision: 11784

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/compute_element_properties.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/locate_receivers.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/locate_sources.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/topo_bathy.f90
Log:
changed the syntax of integer, dimension(NX_BATHY,NY_BATHY) :: ibathy_topo


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography.f90	2008-04-09 16:17:46 UTC (rev 11783)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/add_topography.f90	2008-04-09 16:21:30 UTC (rev 11784)
@@ -38,7 +38,7 @@
   integer myrank
 
 ! use integer array to store values
-  integer ibathy_topo(NX_BATHY,NY_BATHY)
+  integer, dimension(NX_BATHY,NY_BATHY) :: ibathy_topo
 
   integer ia
 

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/compute_element_properties.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/compute_element_properties.f90	2008-04-09 16:17:46 UTC (rev 11783)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/compute_element_properties.f90	2008-04-09 16:21:30 UTC (rev 11784)
@@ -299,7 +299,7 @@
           RTOPDDOUBLEPRIME,R600,R220,R771,R400,R120,R80,RMIDDLE_CRUST,ROCEAN
 
 ! use integer array to store values
-  integer ibathy_topo(NX_BATHY,NY_BATHY)
+  integer, dimension(NX_BATHY,NY_BATHY) :: ibathy_topo
 
 ! arrays with the mesh in double precision
   double precision xstore(NGLLX,NGLLY,NGLLZ,nspec)

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90	2008-04-09 16:17:46 UTC (rev 11783)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90	2008-04-09 16:21:30 UTC (rev 11784)
@@ -335,7 +335,7 @@
   character(len=150) LOCAL_PATH,errmsg
 
 ! use integer array to store values
-  integer ibathy_topo(NX_BATHY,NY_BATHY)
+  integer, dimension(NX_BATHY,NY_BATHY) :: ibathy_topo
 
 ! arrays with the mesh in double precision
   double precision xstore(NGLLX,NGLLY,NGLLZ,nspec)

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/locate_receivers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/locate_receivers.f90	2008-04-09 16:17:46 UTC (rev 11783)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/locate_receivers.f90	2008-04-09 16:21:30 UTC (rev 11784)
@@ -70,7 +70,7 @@
   character(len=*)  rec_filename
 
 ! use integer array to store values
-  integer ibathy_topo(NX_BATHY,NY_BATHY)
+  integer, dimension(NX_BATHY,NY_BATHY) :: ibathy_topo
 
   integer, allocatable, dimension(:) :: ix_initial_guess,iy_initial_guess,iz_initial_guess
 

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/locate_sources.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/locate_sources.f90	2008-04-09 16:17:46 UTC (rev 11783)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/locate_sources.f90	2008-04-09 16:21:30 UTC (rev 11784)
@@ -54,7 +54,7 @@
   double precision DT
 
 ! use integer array to store values
-  integer ibathy_topo(NX_BATHY,NY_BATHY)
+  integer, dimension(NX_BATHY,NY_BATHY) :: ibathy_topo
 
 ! for ellipticity
   integer nspl

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D.f90	2008-04-09 16:17:46 UTC (rev 11783)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/meshfem3D.f90	2008-04-09 16:21:30 UTC (rev 11784)
@@ -454,7 +454,7 @@
   double precision ANGULAR_WIDTH_XI_RAD,ANGULAR_WIDTH_ETA_RAD
 
 ! use integer array to store values
-  integer ibathy_topo(NX_BATHY,NY_BATHY)
+  integer, dimension(NX_BATHY,NY_BATHY) :: ibathy_topo
 
 ! for ellipticity
   integer nspl

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90	2008-04-09 16:17:46 UTC (rev 11783)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/specfem3D.f90	2008-04-09 16:21:30 UTC (rev 11784)
@@ -303,7 +303,7 @@
   real(kind=CUSTOM_REAL), dimension(NGLLX,NGLLY,NGLLZ,NSPEC_CRUST_MANTLE_STRAIN_ONLY) :: Ieps_trace_over_3_crust_mantle
 
 ! use integer array to store values
-  integer ibathy_topo(NX_BATHY,NY_BATHY)
+  integer, dimension(NX_BATHY,NY_BATHY) :: ibathy_topo
 
 ! for crust/oceans coupling
   integer, dimension(NSPEC2DMAX_XMIN_XMAX_CM) :: ibelm_xmin_crust_mantle,ibelm_xmax_crust_mantle

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/topo_bathy.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/topo_bathy.f90	2008-04-09 16:17:46 UTC (rev 11783)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/topo_bathy.f90	2008-04-09 16:21:30 UTC (rev 11784)
@@ -36,7 +36,7 @@
   include "constants.h"
 
 ! use integer array to store values
-  integer ibathy_topo(NX_BATHY,NY_BATHY)
+  integer, dimension(NX_BATHY,NY_BATHY) :: ibathy_topo
 
   double precision xlat,xlon,value
 
@@ -76,7 +76,7 @@
   character(len=150) topo_bathy_file
 
 ! use integer array to store values
-  integer ibathy_topo(NX_BATHY,NY_BATHY)
+  integer, dimension(NX_BATHY,NY_BATHY) :: ibathy_topo
 
   integer itopo_x,itopo_y