eval_gstress Subroutine

public subroutine eval_gstress(self, mesh_cano, equi_on_cano, opsinplane_cano, map, ne_v, pot_v, ti_v, apar_fluct_cano_v, gstress, eval_flow_crv, eval_flow_par, eval_heat_crv, eval_heat_par)

Computation of ion stress function G = G_flow + G_heat with "beyond Braginskii extensions" according to parameters

Type Bound

gyroviscosity_t

Arguments

Type IntentOptional Attributes Name
class(gyroviscosity_t), intent(in) :: self

Instance of type

type(mesh_cart_t), intent(in) :: mesh_cano

Mesh (canonical) within poloidal plane

class(equilibrium_storage_t), intent(in) :: equi_on_cano

Equilibrim quantities on canonical mesh

type(inplane_operators_t), intent(in) :: opsinplane_cano

In-plane operators (canonical)

type(parallel_map_t), intent(in) :: map

Parallel map

real(kind=GP), intent(in), dimension(mesh_cano%get_n_points()) :: ne_v

Electron density

real(kind=GP), intent(in), dimension(mesh_cano%get_n_points()) :: pot_v

Electrostatic potential

real(kind=GP), intent(in), dimension(mesh_cano%get_n_points()) :: ti_v

Ion temperature

real(kind=GP), intent(in), dimension(mesh_cano%get_n_points()) :: apar_fluct_cano_v

Fluctuation of apar used for flutter operators It is assumed that communication has already been done to do mapping to canonical mesh

real(kind=GP), intent(out), dimension(mesh_cano%get_n_points()) :: gstress

Values of ion viscous stress function G

logical, intent(in), optional :: eval_flow_crv

If true computes part of G_flow arising from curvature terms (default = T) This feature is useful for technical reasons, when only evaluation of individual parts of G is needed

logical, intent(in), optional :: eval_flow_par

If true computes computes part of G_flow arising from parallel divergence of upar (default = T)

logical, intent(in), optional :: eval_heat_crv

If true computes part of G_heat arising from curvature terms (default = T)

logical, intent(in), optional :: eval_heat_par

If true computes part of G_flow arising from paralle divergence of qipar (default = T)


Contents