imexrk_update Subroutine

  1. atl_imexrk_module.f90
  2. atl_imexrk_module
  3. imexrk_update

private subroutine imexrk_update(statedata_list, scheme_list, timestep_list)

Subroutine calculates the final update step of the Runge-Kutta method. It is performing levelwise.

Arguments

TypeIntentOptionalAttributesName
type(atl_statedata_type), intent(inout) :: statedata_list

List of states you want to calc the rhs for. For each level we have one.
type(atl_scheme_type), intent(inout) :: scheme_list

List of schemes, for each level.
type(atl_timestep_type), intent(inout) :: timestep_list

List of levelwise timestepping algorihtms

Calls

proc~~imexrk_update~~CallsGraph proc~imexrk_update imexrk_update none~compute~4 compute proc~imexrk_update->none~compute~4

Called by

proc~~imexrk_update~~CalledByGraph proc~imexrk_update imexrk_update proc~mesh_timestep_imexrk mesh_timestep_imexrk proc~mesh_timestep_imexrk->proc~imexrk_update

Contents

Variables

Subroutines


Variables

TypeVisibilityAttributesNameInitial
integer, private :: nTotal
integer, private :: nDofs
integer, private :: nScalars

Subroutines

subroutine compute(nTotal, nDofs, nScalars, state, state2, state3, state4, state1_implicit, state2_implicit, state3_implicit, dt)

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: nTotal
integer, intent(in) :: nDofs
integer, intent(in) :: nScalars
real(kind=rk), intent(inout) :: state(nTotal,nDofs,nScalars)
real(kind=rk), intent(in) :: state2(nTotal,nDofs,nScalars)
real(kind=rk), intent(in) :: state3(nTotal,nDofs,nScalars)
real(kind=rk), intent(in) :: state4(nTotal,nDofs,nScalars)
real(kind=rk), intent(in) :: state1_implicit(nTotal,nDofs,nScalars)
real(kind=rk), intent(in) :: state2_implicit(nTotal,nDofs,nScalars)
real(kind=rk), intent(in) :: state3_implicit(nTotal,nDofs,nScalars)
real(kind=rk) :: dt