Add missing iprof parameter initialization in GRAY/JINTRAC interface

Cherry-pick from commit 6627cb14
2022-10-04 18:43:13 +02:00 · 2022-10-04 18:43:13 +02:00 · 8c3e246f25
commit 8c3e246f25
parent 8f90cb21da
1 changed files with 1 additions and 0 deletions
--- a/src/gray_jetto1beam.f90
+++ b/src/gray_jetto1beam.f90
@ -51,6 +51,7 @@ subroutine gray_jetto1beam(ijetto, mr, mz, r, z, psin, psia, rax, zax, &
      params%equilibrium%filenm = 'JETTO'
      params%equilibrium%iequil = ijetto + 1
      params%profiles%filenm    = 'JETTO'
+      params%profiles%iprof     = 1
      params%output%ipec        = 1
      params%output%nrho        = nrho