fix bug

PeterHjortLauritzen · PeterHjortLauritzen · commit 9e7393bd10c3 · 2025-08-21T07:24:18.000-06:00
diff --git a/src/dynamics/se/dycore/fvm_reconstruction_mod.F90 b/src/dynamics/se/dycore/fvm_reconstruction_mod.F90
@@ -1794,7 +1794,7 @@ subroutine extend_panel_interpolate(nc,nhc,nhr,nht,ns,nh,fcube,cubeboundary,hWei
          ! fill in "n" on Figure above
          !
          do halo=1,nhr
-           ! ftmp(:) = fcube(nc+1-halo,:)   ! copy to a temporary
+           ftmp(:) = fcube(nc+1-halo,:)   ! copy to a temporary
            do i=max(halo-nh,0),nht-halo
              ibaseref=ibase(i,halo,2) +nc
              !

Original file line number	Diff line number	Diff line change
`@@ -1794,7 +1794,7 @@ subroutine extend_panel_interpolate(nc,nhc,nhr,nht,ns,nh,fcube,cubeboundary,hWei`
`1794`	`1794`	`! fill in "n" on Figure above`
`1795`	`1795`	`!`
`1796`	`1796`	`do halo=1,nhr`
`1797`		`- ! ftmp(:) = fcube(nc+1-halo,:) ! copy to a temporary`
	`1797`	`+ ftmp(:) = fcube(nc+1-halo,:) ! copy to a temporary`
`1798`	`1798`	`do i=max(halo-nh,0),nht-halo`
`1799`	`1799`	`ibaseref=ibase(i,halo,2) +nc`
`1800`	`1800`	`!`