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

fixup 15fc891

Browse Source
This commit is contained in:
Michele Guerini Rocco 2024-10-05 15:06:22 +02:00 committed by rnhmjoj
parent 864cf23b78
commit cdac0ca361
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gray_core.f90
View File

@ -143,7 +143,7 @@ contains
results%tables%inputs_maps = inputs_maps(params, equil, plasma, bres, xgcn) results%tables%inputs_maps = inputs_maps(params, equil, plasma, bres, xgcn)
! print ψ surface for q=3/2 and q=2/1 ! print ψ surface for q=3/2 and q=2/1
call find_flux_surfaces(qvals=[1.5_wp_, 2.0_wp_], & call find_flux_surfaces(qvals=[1.0_wp_, 1.5_wp_, 2.0_wp_], &
params=params, equil=equil, & params=params, equil=equil, &
tbl=results%tables%flux_surfaces) tbl=results%tables%flux_surfaces)
@ -614,7 +614,7 @@ contains
if (params%equilibrium%iequil /= EQ_VACUUM) then if (params%equilibrium%iequil /= EQ_VACUUM) then
call store_ec_profiles( & call store_ec_profiles( &
results%tables%ec_profiles, rhop_tab, rhot_tab, jphi_beam, & results%tables%ec_profiles, rhop_tab, rhot_tab, jphi_beam, &
jcd_beam, dpdv_beam, currins_beam, pins_beam, ip) jcd_beam, dpdv_beam, currins_beam, pins_beam, index_rt)
call postproc_profiles(equil, pabs_beam, icd_beam, rhot_tab, dpdv_beam, & call postproc_profiles(equil, pabs_beam, icd_beam, rhot_tab, dpdv_beam, &
jphi_beam, rhotpav, drhotpav, rhotjava, drhotjava, dpdvp, jphip, & jphi_beam, rhotpav, drhotpav, rhotjava, drhotjava, dpdvp, jphip, &

8
src/gray_tables.f90
View File

@ -131,7 +131,7 @@ contains
real(wp_) :: psi_n, rho_p, drho_p real(wp_) :: psi_n, rho_p, drho_p
call tbl%init(title='kinetic-profiles', id=55, active=is_active(params, 25), & call tbl%init(title='kinetic-profiles', id=55, active=is_active(params, 25), &
labels=[character(64) :: 'psi_n', 'rho_t', 'n_e', 'T_e', 'q', 'J_φ']) labels=[character(64) :: 'ψ_n', 'ρ_t', 'n_e', 'T_e', 'q', 'J_φ'])
if (.not. tbl%active) return if (.not. tbl%active) return
if (params%equilibrium%iequil == EQ_VACUUM) return if (params%equilibrium%iequil == EQ_VACUUM) return
@ -178,7 +178,7 @@ contains
type(table) :: tbl type(table) :: tbl
call tbl%init(title='ec-resonance', id=70, active=is_active(params, 70), & call tbl%init(title='ec-resonance', id=70, active=is_active(params, 70), &
labels=[character(64) :: 'i', 'B_tot', 'R', 'z']) labels=[character(64) :: 'n', 'B', 'R', 'z'])
if (.not. tbl%active) return if (.not. tbl%active) return
if (params%equilibrium%iequil == EQ_VACUUM) return if (params%equilibrium%iequil == EQ_VACUUM) return
@ -220,8 +220,8 @@ contains
n_tot = size(R_cont) n_tot = size(R_cont)
call cniteq_f(R, z, B_tot, size(R), size(z), B, & call cniteq_f(R, z, B_tot, size(R), size(z), B, &
n_conts, n_points, n_tot, R_cont, z_cont) n_conts, n_points, n_tot, R_cont, z_cont)
do j = 1, size(R_cont) do j = 1, n_tot
call tbl%append([wrap(j), wrap(B), wrap(R_cont(j)), wrap(z_cont(j))]) call tbl%append([wrap(n), wrap(B), wrap(R_cont(j)), wrap(z_cont(j))])
end do end do
end if end if
end do end do