diff --git a/src/physics.F90 b/src/physics.F90 index 1b6bbeff19..efcb692988 100644 --- a/src/physics.F90 +++ b/src/physics.F90 @@ -647,7 +647,7 @@ contains k = binary_search(sab % elastic_P(1:i+1), i+1, prob) end if - ! Characteristic scattering cosine for this Bragg egg + ! Characteristic scattering cosine for this Bragg edge mu = ONE - 2.0*sab % elastic_e_in(k) / p % E end if