summon_grad_evaluation Module

Calculate gradients of any primitive variables and temperature


Uses

  • module~~summon_grad_evaluation~~UsesGraph module~summon_grad_evaluation summon_grad_evaluation module~utils utils module~summon_grad_evaluation->module~utils module~global_vars global_vars module~summon_grad_evaluation->module~global_vars module~ghost_gradients ghost_gradients module~summon_grad_evaluation->module~ghost_gradients module~string string module~summon_grad_evaluation->module~string module~utils->module~global_vars module~global global module~global_vars->module~global module~ghost_gradients->module~utils module~ghost_gradients->module~global_vars

Used by

  • module~~summon_grad_evaluation~~UsedByGraph module~summon_grad_evaluation summon_grad_evaluation module~solver solver module~solver->module~summon_grad_evaluation module~update update module~solver->module~update module~update->module~summon_grad_evaluation program~main main program~main->module~solver module~start_finish start_finish program~main->module~start_finish module~start_finish->module~solver

Contents


Variables

TypeVisibility AttributesNameInitial
real, private, dimension(6):: T

Temperaure array for six neighbours

real, private :: cell_T

Temperature at cell center

integer, private :: i

integer for DO loop

integer, private :: j

integer for DO loop

integer, private :: k

integer for DO loop


Subroutines

public subroutine evaluate_all_gradients()

Call to all the required gradients and apply boundary condition for ghost cell gradients

Arguments

None

private subroutine compute_gradient_G(grad, var, dir)

Compute gradient of any input scalar

Arguments

Type IntentOptional AttributesName
real, intent(out), dimension( 0:imx , 0:jmx , 0:kmx ):: grad

Output variable storing the graident of var

real, intent(in), dimension(-2:imx+2,-2:jmx+2,-2:kmx+2):: var

Input variable of which graident is required

character(len=*), intent(in) :: dir

Direction with respect to which gradients are calculated

private subroutine compute_gradient_T(grad, dir)

Calculate gradient of temperature

Arguments

Type IntentOptional AttributesName
real, intent(out), dimension( 0:imx , 0:jmx , 0:kmx ):: grad

Output gradient of termperature

character(len=*), intent(in) :: dir

Direction with respect to which gradients are calculated