[cig-commits] r14147 - seismo/3D/SPECFEM3D_GLOBE/branches/pluggable

[tan2 at geodynamics.org]

Author: tan2
Date: 2009-02-25 10:23:50 -0800 (Wed, 25 Feb 2009)
New Revision: 14147

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/compute_coordinates_grid.f90
Log:
Added "intent" attribute to subroutine arguments, so that I can safely reuse compute_coord_main_mesh() to get domain bound of current processor before the mesh is created.


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/compute_coordinates_grid.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/compute_coordinates_grid.f90	2009-02-25 14:06:45 UTC (rev 14146)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/compute_coordinates_grid.f90	2009-02-25 18:23:50 UTC (rev 14147)
@@ -35,18 +35,19 @@
 
   include "constants.h"
 
-  double precision, dimension(NGNOD) :: xelm,yelm,zelm,offset_x,offset_y,offset_z
+  double precision, intent(in), dimension(NGNOD) :: offset_x,offset_y,offset_z
+  double precision, intent(out), dimension(NGNOD) :: xelm,yelm,zelm
 
 ! rotation matrix from Euler angles
-  double precision, dimension(NDIM,NDIM) :: rotation_matrix
+  double precision, intent(in), dimension(NDIM,NDIM) :: rotation_matrix
 
   integer, intent(in) :: iproc_xi,iproc_eta,NPROC_XI,NPROC_ETA, &
                    NEX_PER_PROC_XI,NEX_PER_PROC_ETA,ner,ilayer,ichunk,NCHUNKS
 
-  double precision :: ANGULAR_WIDTH_XI_RAD,ANGULAR_WIDTH_ETA_RAD,r_top,r_bottom
+  double precision, intent(in) :: ANGULAR_WIDTH_XI_RAD,ANGULAR_WIDTH_ETA_RAD,r_top,r_bottom
 
-  logical :: INCLUDE_CENTRAL_CUBE
-  integer :: NUMBER_OF_MESH_LAYERS
+  logical, intent(in) :: INCLUDE_CENTRAL_CUBE
+  integer, intent(in) :: NUMBER_OF_MESH_LAYERS
 
 ! local variables
   integer :: i,j,ignod