Fixing z dimension of indicator file for reading

reedmaxwell · Nov 25, 2019 · 616cda7 · 616cda7
1 parent 9d3d0c0
commit 616cda7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/EcoSLIM.f90 b/EcoSLIM.f90
@@ -619,7 +619,7 @@ end subroutine vtk_write_points
 if (nind>0) then
   if (Indname /= '') then
     fname = trim(adjustl(Indname))
-    call pfb_read(Ind,fname,nx,ny,nztemp)
+    call pfb_read(Ind,fname,nx,ny,nz)
     write(11,*) 'Read Indicator File:', fname
      !write(11,*) 'IndREAD:', nx, ny, nztemp
   else