cumulant_omega_check Subroutine

public subroutine cumulant_omega_check(omegaVisc, omegaBulk, omegaIn, nSolve, level)

Checking the stability regions of omegas for the parametrized Cumulant Just omega(2) is given in input. omega(2)=-1 means omega2=omegaBulk. Limiters read from input. lim(N)=10^10 means unlimited. lim(N) is for omega(N+2). Just omega(3:5) are limited as in the paper. omega(6:10) = 1._rk

Arguments

TypeIntentOptionalAttributesName
real(kind=rk), intent(in) :: omegaVisc(:)

vector of omegas in the level

real(kind=rk), intent(in) :: omegaBulk

omega bulk value in the level

real(kind=rk), intent(in) :: omegaIn(:)

vector of omegas as given in musubi.lua

integer, intent(in) :: nSolve

number of elements solved in kernel

integer, intent(in) :: level

current level


Calls

proc~~cumulant_omega_check~~CallsGraph proc~cumulant_omega_check cumulant_omega_check proc~tem_abort tem_abort proc~cumulant_omega_check->proc~tem_abort

Called by

proc~~cumulant_omega_check~~CalledByGraph proc~cumulant_omega_check cumulant_omega_check proc~mus_fluid_dump mus_fluid_dump proc~mus_fluid_dump->proc~cumulant_omega_check proc~mus_init_fluid mus_init_fluid proc~mus_init_fluid->proc~mus_fluid_dump proc~mus_init_aux mus_init_aux proc~mus_init_aux->proc~mus_init_fluid proc~mus_reset_aux mus_reset_aux proc~mus_reset_aux->proc~mus_init_fluid proc~mus_hvs_init_aux mus_hvs_init_aux proc~mus_hvs_init_aux->proc~mus_init_fluid proc~mus_initialize mus_initialize proc~mus_initialize->proc~mus_init_aux program~mus_harvesting mus_harvesting program~mus_harvesting->proc~mus_hvs_init_aux proc~mus_perform_dynloadbal mus_perform_dynLoadBal proc~mus_perform_dynloadbal->proc~mus_reset_aux

Contents


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private :: omega(10)
real(kind=rk), private :: omegaPrev
integer, private :: iElem
logical, private :: test(5)