Add missing iprof parameter initialization in GRAY/JINTRAC interface

2021-11-19 12:57:53 +00:00 · 2021-11-19 12:57:53 +00:00 · 6627cb1481
commit 6627cb1481
parent 3a9fb6539f
1 changed files with 1 additions and 0 deletions
--- a/src/gray_jetto1beam.f90
+++ b/src/gray_jetto1beam.f90
@ -44,6 +44,7 @@ subroutine gray_jetto1beam(ijetto, mr, mz, r, z, psin, psia, rax, zax, &
    eqp%filenm='JETTO'
    eqp%iequil=ijetto+1
    prfp%filenm='JETTO'
+    prfp%iprof=1
    outp%ipec=1
    firstcall=.false.
    outp%nrho=nrho