Fix included

predsci · Sep 9, 2024 · b732a13 · b732a13
1 parent 73d7bae
commit b732a13
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/hipft.f90 b/src/hipft.f90
@@ -6628,7 +6628,7 @@ subroutine load_weno
 !
 ! ****** Set grid weights.
 !
-      do j=2,ntm1
+      do j=2,nt-2
         dt_total = dt(j-1) + dt(j) + dt(j+1)
         D_C_CPt(j) =           dt(j  )/(dt(j  )+dt(j+1))
         D_C_MCt(j) =           dt(j  )/(dt(j-1)+dt(j  ))
@@ -6638,7 +6638,7 @@ subroutine load_weno
         D_MC_Tt(j) = (dt(j-1)+dt(j  ))/dt_total
       enddo
 !
-      do k=2,npm1
+      do k=2,np-1
         dp_total = dp(k-1) + dp(k) + dp(k+1)
         D_C_CPp(k) =           dp(k  )/(dp(k  )+dp(k+1))
         D_C_MCp(k) =           dp(k  )/(dp(k-1)+dp(k  ))