write_output_tec_node Module

  1. write_output_tec_node.f90
  2. write_output_tec_node

Writing solution in the output file in tecplot format with node data instead of cell-center data.


Uses

  • module~~write_output_tec_node~~UsesGraph module~write_output_tec_node write_output_tec_node module~wall_dist wall_dist module~write_output_tec_node->module~wall_dist module~utils utils module~write_output_tec_node->module~utils module~global_sst global_sst module~write_output_tec_node->module~global_sst module~viscosity viscosity module~write_output_tec_node->module~viscosity module~gradients gradients module~write_output_tec_node->module~gradients module~vartypes vartypes module~write_output_tec_node->module~vartypes module~wall_dist->module~utils module~wall_dist->module~vartypes iso_fortran_env iso_fortran_env module~global_sst->iso_fortran_env module~viscosity->module~wall_dist module~viscosity->module~utils module~viscosity->module~global_sst module~viscosity->module~gradients module~viscosity->module~vartypes module~copy_bc copy_bc module~viscosity->module~copy_bc module~global_sa global_sa module~viscosity->module~global_sa module~global_kkl global_kkl module~viscosity->module~global_kkl module~gradients->module~utils module~gradients->module~vartypes module~vartypes->iso_fortran_env module~copy_bc->module~vartypes module~global_sa->iso_fortran_env module~global_kkl->iso_fortran_env

Used by

  • module~~write_output_tec_node~~UsedByGraph module~write_output_tec_node write_output_tec_node module~write_output write_output module~write_output->module~write_output_tec_node module~dump_solution dump_solution module~dump_solution->module~write_output module~solver solver module~solver->module~dump_solution program~main main program~main->module~solver

Contents

Variables

Subroutines


Variables

TypeVisibility AttributesNameInitial
integer, private :: OUT_FILE_UNIT
integer, private :: i
integer, private :: j
integer, private :: k
character(len=*), private, parameter:: format ="(35e25.15)"
integer, private :: imx
integer, private :: jmx
integer, private :: kmx
real(kind=wp), private, dimension(:, :, :), pointer:: density

Rho pointer, point to slice of qp (:,:,:,1)
real(kind=wp), private, dimension(:, :, :), pointer:: x_speed

U pointer, point to slice of qp (:,:,:,2)

real(kind=wp), private, dimension(:, :, :), pointer:: y_speed

V pointer, point to slice of qp (:,:,:,3)

real(kind=wp), private, dimension(:, :, :), pointer:: z_speed

W pointer, point to slice of qp (:,:,:,4)
real(kind=wp), private, dimension(:, :, :), pointer:: pressure

P pointer, point to slice of qp (:,:,:,5)
real(kind=wp), private, dimension(:, :, :), pointer:: tk

TKE, point to slice of qp (:,:,:,6)
real(kind=wp), private, dimension(:, :, :), pointer:: tw

Omega, point to slice of qp (:,:,:,7)
real(kind=wp), private, dimension(:, :, :), pointer:: te

Dissipation, point to slice of qp (:,:,:,7)
real(kind=wp), private, dimension(:, :, :), pointer:: tv

SA visocity, point to slice of qp (:,:,:,6)
real(kind=wp), private, dimension(:, :, :), pointer:: tkl

KL K-KL method, point to slice of qp (:,:,:,7)
real(kind=wp), private, dimension(:, :, :), pointer:: tgm

Intermittency of LCTM2015, point to slice of qp (:,:,:,8)

Subroutines

public subroutine write_file(file_handler, state, nodes, control, scheme, dims)

Write output file in the tecplot format with node data

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: file_handler
real(kind=wp), intent(in), dimension(-2:dims%imx+2, -2:dims%jmx+2, -2:dims%kmx+2, 1:dims%n_var), target:: state
type(nodetype), intent(in), dimension(-2:dims%imx+3,-2:dims%jmx+3,-2:dims%kmx+3):: nodes
type(controltype), intent(in) :: control
type(schemetype), intent(in) :: scheme
type(extent), intent(in) :: dims

private subroutine write_header(control)

Write the header in the output file

Arguments

Type IntentOptional AttributesName
type(controltype), intent(in) :: control

private subroutine write_grid(nodes)

Write grid information in the output file

Arguments

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

private subroutine write_scalar(var, name, index)

Write scalar variable in the output file

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in), dimension(index:imx-index,index:jmx-index,index:kmx-index):: var
character(len=*), intent(in) :: name
integer, intent(in) :: index