src/pec.f90: fix uninitialised memory use

If the condition `sccsa > zero` is not met, ratj{a,b}mx remain unitialised and print_finals may write them to fort.7.
2021-12-15 02:31:07 +01:00 · 2021-12-15 02:31:07 +01:00 · b1694bc575
commit b1694bc575
parent 5a50ce1cef
1 changed files with 2 additions and 0 deletions
--- a/src/pec.f90
+++ b/src/pec.f90
@ -309,6 +309,8 @@ contains
      rhotjfi  = zero
      ajmxfi   = zero
      drhotjfi = zero
+      ratjamx  = zero
+      ratjbmx  = zero
    end if
  end subroutine postproc_profiles