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

src/pec.f90: fix uninitialised memory use

Browse Source 
If the condition `sccsa > zero` is not met, ratj{a,b}mx remain
unitialised and print_finals may write them to fort.7.
This commit is contained in:
Michele Guerini Rocco 2021-12-15 02:31:07 +01:00
parent 5a50ce1cef
commit b1694bc575
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/pec.f90
View File

@ -309,6 +309,8 @@ contains
rhotjfi = zero rhotjfi = zero
ajmxfi = zero ajmxfi = zero
drhotjfi = zero drhotjfi = zero
ratjamx = zero
ratjbmx = zero
end if end if
end subroutine postproc_profiles end subroutine postproc_profiles