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

[nlegoff at geodynamics.org]

Author: nlegoff
Date: 2008-09-23 08:15:27 -0700 (Tue, 23 Sep 2008)
New Revision: 12938

Modified:
   seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_scalar.f90
   seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_vector.f90
   seismo/3D/SPECFEM3D/branches/update_temporary/constants.h.in
Log:
fixed a few bugs.

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_scalar.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_scalar.f90	2008-09-22 17:53:22 UTC (rev 12937)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_scalar.f90	2008-09-23 15:15:27 UTC (rev 12938)
@@ -253,7 +253,7 @@
          itag, &
          request_send_scalar_ext_mesh(iinterface) &
          )
-    call irecv_cr(buffer_send_scalar_ext_mesh(1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
+    call irecv_cr(buffer_recv_scalar_ext_mesh(1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
          nibool_interfaces_ext_mesh(iinterface), &
          my_neighbours_ext_mesh(iinterface), &
          itag, &
@@ -270,7 +270,7 @@
   do iinterface = 1, ninterfaces_ext_mesh
     do ipoin = 1, nibool_interfaces_ext_mesh(iinterface)
       array_val(ibool_interfaces_ext_mesh(ipoin,iinterface)) = &
-           array_val(ibool_interfaces_ext_mesh(ipoin,iinterface)) + buffer_send_scalar_ext_mesh(ipoin,iinterface)
+           array_val(ibool_interfaces_ext_mesh(ipoin,iinterface)) + buffer_recv_scalar_ext_mesh(ipoin,iinterface)
     enddo
   enddo
       

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_vector.f90
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_vector.f90	2008-09-22 17:53:22 UTC (rev 12937)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/assemble_MPI_vector.f90	2008-09-23 15:15:27 UTC (rev 12938)
@@ -253,7 +253,7 @@
          itag, &
          request_send_vector_ext_mesh(iinterface) &
          )
-    call irecv_cr(buffer_send_vector_ext_mesh(:,1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
+    call irecv_cr(buffer_recv_vector_ext_mesh(:,1:nibool_interfaces_ext_mesh(iinterface),iinterface), &
          NDIM*nibool_interfaces_ext_mesh(iinterface), &
          my_neighbours_ext_mesh(iinterface), &
          itag, &
@@ -270,7 +270,7 @@
   do iinterface = 1, ninterfaces_ext_mesh
     do ipoin = 1, nibool_interfaces_ext_mesh(iinterface)
       array_val(:,ibool_interfaces_ext_mesh(ipoin,iinterface)) = &
-           array_val(:,ibool_interfaces_ext_mesh(ipoin,iinterface)) + buffer_send_vector_ext_mesh(:,ipoin,iinterface)
+           array_val(:,ibool_interfaces_ext_mesh(ipoin,iinterface)) + buffer_recv_vector_ext_mesh(:,ipoin,iinterface)
     enddo
   enddo
 

Modified: seismo/3D/SPECFEM3D/branches/update_temporary/constants.h.in
===================================================================
--- seismo/3D/SPECFEM3D/branches/update_temporary/constants.h.in	2008-09-22 17:53:22 UTC (rev 12937)
+++ seismo/3D/SPECFEM3D/branches/update_temporary/constants.h.in	2008-09-23 15:15:27 UTC (rev 12938)
@@ -123,10 +123,10 @@
   logical, parameter :: USE_EXTERNAL_MESH = .false.
 
 ! deltat
-  integer, parameter :: DT_ext_mesh = 0.001d0
+  double precision, parameter :: DT_ext_mesh = 0.001d0
 
 ! NSTEP
-  double precision, parameter :: NSTEP_ext_mesh = 100
+  integer, parameter :: NSTEP_ext_mesh = 100
 
 ! number of nodes per element as provided by the external mesh
   integer, parameter :: ESIZE = 8