istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

src/equilibrium.f90: set q=0 for ψ>1 in numeric case

Browse Source
This commit is contained in:
Michele Guerini Rocco 2024-02-02 17:13:34 +01:00
parent 85c84c9a48
commit c99fc0b343
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/equilibrium.f90
View File

@ -1195,7 +1195,13 @@ contains
case (EQ_EQDSK_FULL, EQ_EQDSK_PARTIAL) case (EQ_EQDSK_FULL, EQ_EQDSK_PARTIAL)
! Numerical data ! Numerical data
if (psin < 1) then
fq = q_spline%eval(psin) fq = q_spline%eval(psin)
else
! q is undefined or infinite
fq = 0
end if
end select end select
end function fq end function fq