fix comment

jonathanschilling · Oct 9, 2023 · ece5215 · ece5215
1 parent 55f2326
commit ece5215
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/eqfor.f90 b/src/eqfor.f90
@@ -121,7 +121,7 @@ SUBROUTINE eqfor(br, bz, bsubu, bsubv, tau, rzl_array, ier_flag)
      overr(i) = SUM(tau(i:nrzt:ns)/r12(i:nrzt:ns)) / vp(i)
   END DO
 
-  ! extrapolate volume-averaged beta profile to magnetic axis
+  ! extrapolate surface-averaged beta profile to magnetic axis
   betaxis = c1p5*beta_vol(2) - cp5*beta_vol(3)
 
   WRITE (nthreed, 5)