upar_penalisation Subroutine

public subroutine upar_penalisation(equi, equi_on_stag, mesh_stag, map, penalisation_stag, opsinplane_stag, upar, stag_te, stag_ti, stag_pot, upar_pen_vals)

Sets the parallel velocity penalisation values.

Arguments

Type IntentOptional Attributes Name
class(equilibrium_t), intent(in) :: equi

Equilibrium

type(equilibrium_storage_t), intent(in) :: equi_on_stag

Equilibrium quantites on staggered mesh

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

Mesh (staggered)

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

Parallel map

type(penalisation_t), intent(in) :: penalisation_stag

Penalisation (staggered)

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

In-plane operators (staggered)

type(variable_t), intent(in) :: upar

Parallel velocity

type(variable_t), intent(in) :: stag_te

Electron temperature on staggered grid

type(variable_t), intent(in) :: stag_ti

Ion temperature on staggered grid

type(variable_t), intent(in) :: stag_pot

Electrostatic potential on staggered grid

real(kind=GP), intent(out), dimension(mesh_stag%get_n_points_inner()) :: upar_pen_vals

Penalisation values for the parallel velocity


Contents