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

[dmichea at geodynamics.org]

Author: dmichea
Date: 2008-04-10 10:49:30 -0700 (Thu, 10 Apr 2008)
New Revision: 11793

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_1D_buffers.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_eta.f90
   seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_xi.f90
Log:
fixed a bug I have introduced in my last commit.



Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90	2008-04-10 09:36:18 UTC (rev 11792)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/create_regions_mesh.f90	2008-04-10 17:49:30 UTC (rev 11793)
@@ -1301,7 +1301,7 @@
   endif
 
 ! define the doubling flag of this element
-! only two active central cube, the 4 others are fictitious
+! only two active central cubes, the four others are fictitious
 
 ! determine where we cut the central cube to share it between CHUNK_AB & CHUNK_AB_ANTIPODE
 ! in the case of mod(NPROC_XI,2)/=0, the cut is asymetric and the bigger part is for CHUNK_AB

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_1D_buffers.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_1D_buffers.f90	2008-04-10 09:36:18 UTC (rev 11792)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_1D_buffers.f90	2008-04-10 17:49:30 UTC (rev 11793)
@@ -129,8 +129,8 @@
               ystore_selected(npoin1D) = ystore(ix,iy,iz,ispec)
               zstore_selected(npoin1D) = zstore(ix,iy,iz,ispec)
             else
-              write(10,*) ibool(ispec), xstore(ispec), &
-                    ystore(ispec),zstore(ispec)
+              write(10,*) ibool(ix,iy,iz,ispec), xstore(ix,iy,iz,ispec), &
+                    ystore(ix,iy,iz,ispec),zstore(ix,iy,iz,ispec)
             endif
         endif
       enddo
@@ -194,8 +194,8 @@
               ystore_selected(npoin1D) = ystore(ix,iy,iz,ispec)
               zstore_selected(npoin1D) = zstore(ix,iy,iz,ispec)
             else
-              write(10,*) ibool(ispec), xstore(ispec), &
-                    ystore(ispec),zstore(ispec)
+              write(10,*) ibool(ix,iy,iz,ispec), xstore(ix,iy,iz,ispec), &
+                    ystore(ix,iy,iz,ispec),zstore(ix,iy,iz,ispec)
             endif
         endif
       enddo
@@ -270,8 +270,8 @@
               ystore_selected(npoin1D) = ystore(ix,iy,iz,ispec)
               zstore_selected(npoin1D) = zstore(ix,iy,iz,ispec)
             else
-              write(10,*) ibool(ispec), xstore(ispec), &
-                    ystore(ispec),zstore(ispec)
+              write(10,*) ibool(ix,iy,iz,ispec), xstore(ix,iy,iz,ispec), &
+                    ystore(ix,iy,iz,ispec),zstore(ix,iy,iz,ispec)
             endif
         endif
       enddo
@@ -342,8 +342,8 @@
               ystore_selected(npoin1D) = ystore(ix,iy,iz,ispec)
               zstore_selected(npoin1D) = zstore(ix,iy,iz,ispec)
             else
-              write(10,*) ibool(ispec), xstore(ispec), &
-                    ystore(ispec),zstore(ispec)
+              write(10,*) ibool(ix,iy,iz,ispec), xstore(ix,iy,iz,ispec), &
+                    ystore(ix,iy,iz,ispec),zstore(ix,iy,iz,ispec)
             endif
         endif
       enddo

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_eta.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_eta.f90	2008-04-10 09:36:18 UTC (rev 11792)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_eta.f90	2008-04-10 17:49:30 UTC (rev 11793)
@@ -128,8 +128,8 @@
                   ystore_selected(npoin2D_eta) = ystore(ix,iy,iz,ispec)
                   zstore_selected(npoin2D_eta) = zstore(ix,iy,iz,ispec)
                 else
-                  write(10,*) ibool(ispec), xstore(ispec), &
-                        ystore(ispec),zstore(ispec)
+                  write(10,*) ibool(ix,iy,iz,ispec), xstore(ix,iy,iz,ispec), &
+                        ystore(ix,iy,iz,ispec),zstore(ix,iy,iz,ispec)
                 endif
             endif
           enddo
@@ -192,8 +192,8 @@
                 ystore_selected(npoin2D_eta) = ystore(ix,iy,iz,ispec)
                 zstore_selected(npoin2D_eta) = zstore(ix,iy,iz,ispec)
               else
-                write(10,*) ibool(ispec), xstore(ispec), &
-                      ystore(ispec),zstore(ispec)
+                write(10,*) ibool(ix,iy,iz,ispec), xstore(ix,iy,iz,ispec), &
+                      ystore(ix,iy,iz,ispec),zstore(ix,iy,iz,ispec)
               endif
           endif
         enddo

Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_xi.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_xi.f90	2008-04-10 09:36:18 UTC (rev 11792)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_MPI_cutplanes_xi.f90	2008-04-10 17:49:30 UTC (rev 11793)
@@ -127,8 +127,8 @@
                   ystore_selected(npoin2D_xi) = ystore(ix,iy,iz,ispec)
                   zstore_selected(npoin2D_xi) = zstore(ix,iy,iz,ispec)
                 else
-                  write(10,*) ibool(ispec), xstore(ispec), &
-                        ystore(ispec),zstore(ispec)
+                  write(10,*) ibool(ix,iy,iz,ispec), xstore(ix,iy,iz,ispec), &
+                        ystore(ix,iy,iz,ispec),zstore(ix,iy,iz,ispec)
                 endif
             endif
           enddo
@@ -193,8 +193,8 @@
                 ystore_selected(npoin2D_xi) = ystore(ix,iy,iz,ispec)
                 zstore_selected(npoin2D_xi) = zstore(ix,iy,iz,ispec)
               else
-                write(10,*) ibool(ispec), xstore(ispec), &
-                      ystore(ispec),zstore(ispec)
+                write(10,*) ibool(ix,iy,iz,ispec), xstore(ix,iy,iz,ispec), &
+                      ystore(ix,iy,iz,ispec),zstore(ix,iy,iz,ispec)
               endif
           endif
         enddo