diff --git a/src/gray_jetto1beam.f90 b/src/gray_jetto1beam.f90 index bb54067..37e9f36 100644 --- 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