diff --git a/src/gray_jetto1beam.f90 b/src/gray_jetto1beam.f90 index 55f725d..76bc3f3 100644 --- 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