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

gray_jetto1beam: activate some debug units by defaults

Browse Source
This commit is contained in:
Michele Guerini Rocco 2022-09-27 18:30:43 +02:00
parent df4930818f
commit 8f90cb21da
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/gray_jetto1beam.f90
View File

@ -2,6 +2,7 @@ subroutine gray_jetto1beam(ijetto, mr, mz, r, z, psin, psia, rax, zax, &
nbnd, rbnd, zbnd, nrho, psrad, fpol, te, dne, zeff, qpsi, ibeam, &
p0mw, alphain, betain, dpdv, jcd, pabs, icd, error)
use const_and_precisions, only: wp_
use units, only: set_active_units, close_units
use gray_params, only: gray_parameters, gray_data, gray_results
use gray_core, only: gray_main
@ -29,6 +30,16 @@ subroutine gray_jetto1beam(ijetto, mr, mz, r, z, psin, psia, rax, zax, &
first_call: if (firstcall) then
firstcall = .false.
! Activate some debug units
set_units: block
use units
call set_active_units([ &
ucenr, usumm, uprj0, uprj0+1, &
uwbm, udisp, ubres, ucnt, &
uoutr, umaps, uprfin, uflx, &
upec])
end block set_units
! Read parameters from external file
init_params: block
use gray_params, only : read_gray_params, set_globals
@ -133,4 +144,6 @@ subroutine gray_jetto1beam(ijetto, mr, mz, r, z, psin, psia, rax, zax, &
dpdv = res%dpdv
jcd = res%jcd
call close_units
end subroutine gray_jetto1beam