istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Add missing iprof parameter initialization in GRAY/JINTRAC interface

Browse Source
This commit is contained in:
Lorenzo Figini 2021-11-19 12:57:53 +00:00
parent 3a9fb6539f
commit 6627cb1481
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/gray_jetto1beam.f90
View File

@ -44,6 +44,7 @@ subroutine gray_jetto1beam(ijetto, mr, mz, r, z, psin, psia, rax, zax, &
eqp%filenm='JETTO' eqp%filenm='JETTO'
eqp%iequil=ijetto+1 eqp%iequil=ijetto+1
prfp%filenm='JETTO' prfp%filenm='JETTO'
prfp%iprof=1
outp%ipec=1 outp%ipec=1
firstcall=.false. firstcall=.false.
outp%nrho=nrho outp%nrho=nrho