atl_covolume_to_primal_projection_1d Function

public function atl_covolume_to_primal_projection_1d(left, right, filter, scheme, maxPolyDeg, nScalars, state) result(primal)

This routine projects two co-volume elements (left and right) onto its primal element. The geometrical setup is as follows:

     left (co-vol.)       right (co-vol.)

|---------------------||---------------------| \ / \ / | |/ |---------------------| primal element

The transformation to the primal element is carried out by a simple (but efficient) L2-projection.

Arguments

TypeIntentOptionalAttributesName
real(kind=rk), intent(in) :: left(:,:)
real(kind=rk), intent(in) :: right(:,:)
type(atl_covolume_type), intent(in) :: filter
type(atl_scheme_type), intent(in) :: scheme

The numerical schemes for the current level to get the modg basis

integer, intent(in) :: maxPolyDeg
integer, intent(in) :: nScalars
real(kind=rk), intent(in) :: state(:,:)

Return Value real(kind=rk)(maxPolyDeg+1,nScalars)


Called by

proc~~atl_covolume_to_primal_projection_1d~~CalledByGraph proc~atl_covolume_to_primal_projection_1d atl_covolume_to_primal_projection_1d proc~atl_covolume_tocovolume_1d atl_covolume_tocovolume_1d proc~atl_covolume_tocovolume_1d->proc~atl_covolume_to_primal_projection_1d proc~atl_covolume_1d atl_covolume_1d proc~atl_covolume_1d->proc~atl_covolume_tocovolume_1d proc~atl_stabilize atl_stabilize proc~atl_stabilize->proc~atl_covolume_1d proc~mesh_timestep_rktaylor mesh_timestep_rktaylor proc~mesh_timestep_rktaylor->proc~atl_stabilize proc~mesh_timestep_euler mesh_timestep_euler proc~mesh_timestep_euler->proc~atl_stabilize none~substep substep none~substep->proc~atl_stabilize proc~mesh_timestep_imexrk mesh_timestep_imexrk proc~mesh_timestep_imexrk->proc~atl_stabilize proc~mesh_timestep_ssprk2 mesh_timestep_ssprk2 proc~mesh_timestep_ssprk2->proc~atl_stabilize program~atl_harvesting atl_harvesting program~atl_harvesting->proc~atl_stabilize

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: dof
integer, private :: dof_covolume
integer, private :: mpd1