Fix induced error

With new, corrected tests
LLNL · Nov 7, 2024 · e9601cc · e9601cc
1 parent 9661240
commit e9601cc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bbb/oderhs.m b/bbb/oderhs.m
@@ -4620,7 +4620,7 @@ ccc             call volave(nx, ny, j2, j5, i2, i5, ixp1(0,0), ixm1(0,0),
 
 c              Ion energy source from drift heating 
                seidh(ix,iy) = cfnidh2* 
-     .              ( -mi(1)* up1cc*up1cc* (psor(ix,iy,1)+psicx(ix,iy))
+     .              ( -mi(1)* up1cc*upgcc* (psor(ix,iy,1)+psicx(ix,iy))
      .              + 0.5*mi(1)*up1cc**2
      .              * (psor(ix,iy,1)+psorrg(ix,iy,1)+2*psicx(ix,iy)) )