wall_dist Module

  1. wall_dist.f90
  2. wall_dist

Calculate the distance from the wall for each cell-center in the domain


Uses

  • module~~wall_dist~~UsesGraph module~wall_dist wall_dist module~utils utils module~wall_dist->module~utils module~vartypes vartypes module~wall_dist->module~vartypes iso_fortran_env iso_fortran_env module~vartypes->iso_fortran_env

Used by

  • module~~wall_dist~~UsedByGraph module~wall_dist wall_dist module~source source module~source->module~wall_dist module~viscosity viscosity module~source->module~viscosity module~cc CC module~source->module~cc module~plusgs plusgs module~plusgs->module~wall_dist module~plusgs->module~viscosity module~write_output_vtk write_output_vtk module~write_output_vtk->module~wall_dist module~write_output_vtk->module~viscosity module~write_output_tec write_output_tec module~write_output_tec->module~wall_dist module~write_output_tec->module~viscosity module~lusgs lusgs module~lusgs->module~wall_dist module~lusgs->module~viscosity module~solver solver module~solver->module~wall_dist module~solver->module~viscosity module~solver->module~cc module~update update module~solver->module~update module~time time module~solver->module~time module~viscous viscous module~solver->module~viscous module~dump_solution dump_solution module~solver->module~dump_solution module~write_output_tec_node write_output_tec_node module~write_output_tec_node->module~wall_dist module~write_output_tec_node->module~viscosity module~viscosity->module~wall_dist module~bc_primitive bc_primitive module~bc_primitive->module~wall_dist module~cc->module~wall_dist module~update->module~wall_dist module~update->module~source module~update->module~plusgs module~update->module~lusgs module~update->module~viscosity module~update->module~bc_primitive module~update->module~time module~update->module~viscous program~main main program~main->module~solver module~time->module~viscosity module~viscous->module~viscosity module~write_output write_output module~write_output->module~write_output_vtk module~write_output->module~write_output_tec module~write_output->module~write_output_tec_node module~dump_solution->module~write_output

Contents

Variables

Subroutines


Variables

TypeVisibility AttributesNameInitial
integer, private :: n_surfnodes

Number of surfce node points
real(kind=wp), private, dimension(:), allocatable:: wall_x

X component of wall surface node point
real(kind=wp), private, dimension(:), allocatable:: wall_y

Y component of wall surface node point
real(kind=wp), private, dimension(:), allocatable:: wall_z

Z component of wall surface node point
real(kind=wp), public, dimension(:, :, :), allocatable:: dist
integer, private :: imx
integer, private :: jmx
integer, private :: kmx

Subroutines

public subroutine setup_wall_dist(files, dims)

Allocate memory to the wall_distance variables and read the surface node file

Arguments

Type IntentOptional AttributesName
type(filetype), intent(in) :: files
type(extent), intent(in) :: dims

private subroutine setup_nodefile(files)

Open and read first line of surface_node_point file

Arguments

Type IntentOptional AttributesName
type(filetype), intent(in) :: files

private subroutine read_destroy_nodefile(files)

Read, and close surface_node_point file

Arguments

Type IntentOptional AttributesName
type(filetype), intent(in) :: files

public subroutine find_wall_dist(nodes, dims)

Determine the minimum wall distance from the wall surface node points

Arguments

Type IntentOptional AttributesName
type(nodetype), intent(in), dimension(-2:dims%imx+3,-2:dims%jmx+3,-2:dims%kmx+3):: nodes
type(extent), intent(in) :: dims