do_computeFinerIntpAndExchange Subroutine

private recursive subroutine do_computeFinerIntpAndExchange(me, scheme, geometry, params, iLevel)

This routine does: 1. computation twice at finer level (iLevel+1), 2. interpolate my coarse ghost element (iLevel) from finer level (iLevel+1) 3. exchange the data of my coarse ghost elements between process

Arguments

TypeIntentOptionalAttributesName
class(mus_control_type) :: me
type(mus_scheme_type), intent(inout), target:: scheme

containers for the different schemes

type(mus_geom_type), intent(inout) :: geometry

geometry infomation

type(mus_param_type), intent(inout) :: params

global parameters

integer, intent(in) :: iLevel

Calls

proc~~do_computefinerintpandexchange~~CallsGraph proc~do_computefinerintpandexchange do_computeFinerIntpAndExchange proc~tem_stoptimer tem_stopTimer proc~do_computefinerintpandexchange->proc~tem_stoptimer proc~stop_stagetimer stop_stageTimer proc~do_computefinerintpandexchange->proc~stop_stagetimer proc~tem_starttimer tem_startTimer proc~do_computefinerintpandexchange->proc~tem_starttimer proc~start_stagetimer start_stageTimer proc~do_computefinerintpandexchange->proc~start_stagetimer proc~stop_stagetimer->proc~tem_stoptimer proc~start_stagetimer->proc~tem_starttimer

Called by

proc~~do_computefinerintpandexchange~~CalledByGraph proc~do_computefinerintpandexchange do_computeFinerIntpAndExchange proc~do_recursive_multilevel do_recursive_multiLevel proc~do_recursive_multilevel->proc~do_computefinerintpandexchange

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: thisLevelNext
integer, private :: nextLevelNext
integer, private :: iNestingLoop

diffusive or acoustic nesting loop