8000 Added check to see if fimp(2) deviates from default value, if it does… by ym1906 · Pull Request #3053 · ukaea/PROCESS · GitHub
[go: up one dir, main page]
More Web Proxy on the site http://driver.im/
Skip to content

Added check to see if fimp(2) deviates from default value, if it does… #3053

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 3 commits into from
Feb 15, 2024
Merged

Added check to see if fimp(2) deviates from default value, if it does… #3053

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
ea5ac59
Added check to see if fimp(2) deviates from default value, if it does…
ym1906 Feb 14, 2024
9882f8b
Added stop to enforce the message, mofidified message
ym1906 Feb 14, 2024
a0f860f
Merge branch 'main' into 417-ralpne-overwrites-fimp02-in-indat
ym1906 Feb 14, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 6 additions & 0 deletions source/fortran/initial.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -347,6 +347,12 @@ subroutine check
trithtmw = 0.0D0
end if

if (fimp(2) .ne. 0.1D0) then
write(*,*)'The thermal alpha/electron density ratio should be controlled using ralpne (itv 109) and not fimp(2).'
write(*,*)'fimp(2) should be removed from the input file, or set to the default value 0.1D0.'
stop 1
end if

! Impurity fractions
do imp = 1,nimp
impurity_arr_frac(imp) = fimp(imp)
Expand Down
0