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

src/gray_tables.f90: fix activation id for kinetic-profiles

Browse Source
This commit is contained in:
Michele Guerini Rocco 2025-02-04 12:06:21 +01:00
parent ba171eee72
commit eacfa2efe2
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gray_tables.f90
View File

@ -121,7 +121,7 @@ contains
real(wp_) :: rho_t, J_phi, dens, ddens real(wp_) :: rho_t, J_phi, dens, ddens
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, 55), &
labels=[character(64) :: 'ψ_n', 'ρ_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