Merge pull request #286 from scottaiton/fix_3d_clawpack_comm_block

fix common blocks in fc3d_clawpack46_step3
ForestClaw · Oct 19, 2023 · f4ba352 · f4ba352
2 parents 264a85c + 6c446f2
commit f4ba352
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/solvers/fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3.f90 b/src/solvers/fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3.f90
@@ -85,6 +85,7 @@ subroutine clawpack46_step3(maxm,meqn,maux,mbc,mx,my,mz, &
     !!  # passed in...
     dxcom = dx
     dycom = dy
+    dzcom = dz
     dtcom = dt
 
     !!  # partition work array into pieces needed for local storage in

diff --git a/src/solvers/fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3_wrap.f90 b/src/solvers/fc3d_clawpack46/fortran_source/fc3d_clawpack46_step3_wrap.f90
@@ -39,7 +39,7 @@ subroutine clawpack46_step3_wrap(maxm, meqn, maux, mbc, &
     !! for a Riemann solver.
     double precision :: dtcom, dxcom,dycom,dzcom, tcom
     integer :: icom, jcom, kcom
-    common /comxyt/ dtcom,dxcom,dycom,dzcom, tcom,icom,jcom, kcom
+    common /comxyzt/ dtcom,dxcom,dycom,dzcom, tcom,icom,jcom, kcom
 
     integer jfix, kfix
     double precision kappa