fixed bug in mesh_spectral_build_ipneighborhood that was introduced in rev2390: loop counter were mixed up

2013-05-14 09:45:22 +00:00 · 2013-05-14 09:45:22 +00:00 · 7ae786e802
parent 364267afa2
commit 7ae786e802
1 changed files with 2 additions and 2 deletions
--- a/code/mesh.f90
+++ b/code/mesh.f90
@ -1359,9 +1359,9 @@ subroutine mesh_spectral_build_ipNeighborhood(myUnit)
 grid = mesh_spectral_getGrid(myUnit)

 e = 0_pInt
- do z = 0_pInt,grid(1)-1_pInt
+ do z = 0_pInt,grid(3)-1_pInt
   do y = 0_pInt,grid(2)-1_pInt
-     do x = 0_pInt,grid(3)-1_pInt
+     do x = 0_pInt,grid(1)-1_pInt
       e = e + 1_pInt
         mesh_ipNeighborhood(1,1,1,e) = z * grid(1) * grid(2) &
                                      + y * grid(1) &