develop.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
pure real(kind=rp) function, dimension(3)	develop::cross (a, b)
	Compute cross product of two vectors.
pure real(kind=rp) function	develop::dot (a, b)
	Compute dot product of two vectors.
pure real(kind=rp) function	develop::area (nv, vertices)
	Compute area of a polygon.
subroutine	develop::get_facets (c, out, facet_type)
	Construct a list of facets.
subroutine	develop::get_facets_outlet (c, out)
	Construct a list of facets.
pure real(kind=rp) function	develop::sum_weighted (a, w)
	Compute the weighted sum of an array.
pure real(kind=rp) function	develop::average_weighted (a, w)
	Compute the weighted average of an array.
subroutine	develop::get_facet_nodes (c, element_id, facet_id, nodes)
	Construct a list of nodes for a facet.
subroutine	develop::estimate_temperature (neko_case)

Variables
integer, parameter, public	develop::facet_type_interior = 0
integer, parameter, public	develop::facet_type_outlet = 1
integer, parameter, public	develop::facet_type_inlet = 2
integer, parameter, public	develop::facet_type_wall = 3
integer, parameter, public	develop::facet_type_sympln = 4

Detailed Description

Copyright

Copyright (c) 2024-2025, The Neko-TOP Authors All rights reserved.

Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:

• Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
• Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
• Neither the name of the authors nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission.

THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Definition in file develop.f90.

Function/Subroutine Documentation

area()

pure real(kind=rp) function develop::area	(	integer, intent(in)	nv,
		real(kind=rp), dimension(3, nv), intent(in)	vertices
	)

Parameters

[in]	nv	Number of vertices.
[in]	vertices	Vertices.

Returns

Area of polygon.

Note

The vertices must be ordered in order either clockwise or counter-clockwise around the polygon.

Definition at line 91 of file develop.f90.

average_weighted()

pure real(kind=rp) function develop::average_weighted	(	real(kind=rp), dimension(:), intent(in)	a,
		real(kind=rp), dimension(:), intent(in), optional	w
	)

Parameters

[in]	a	Array.
[in]	w	Weights, optional.

Returns

Weighted average of array.

This function computes the weighted average of an array. The weights must be the same size as the array.

Definition at line 206 of file develop.f90.

cross()

pure real(kind=rp) function, dimension(3) develop::cross	(	real(kind=rp), dimension(3), intent(in)	a,
		real(kind=rp), dimension(3), intent(in)	b
	)

Parameters

[in]	a	First vector
[in]	b	Second vector

Returns

Cross product \( a \times b \)

Definition at line 61 of file develop.f90.

dot()

pure real(kind=rp) function develop::dot	(	real(kind=rp), dimension(3), intent(in)	a,
		real(kind=rp), dimension(3), intent(in)	b
	)

Parameters

[in]	a	First vector.
[in]	b	Second vector.

Returns

dot product \( a \cdot b \).

Definition at line 76 of file develop.f90.

estimate_temperature()

subroutine develop::estimate_temperature

(

type(case_t), intent(inout)

neko_case

)

Definition at line 267 of file develop.f90.

get_facet_nodes()

subroutine develop::get_facet_nodes	(	type(case_t), intent(in)	c,
		integer, intent(in)	element_id,
		integer, intent(in)	facet_id,
		real(kind=rp), dimension(:, :), intent(out), allocatable	nodes
	)

Parameters

[in]	C	Case data structure.
[in]	element_id	Element ID.
[in]	facet_id	Facet ID.
[out]	nodes	Node list.

Definition at line 224 of file develop.f90.

get_facets()

subroutine develop::get_facets	(	type(case_t), intent(in)	c,
		integer, dimension(:, :), intent(out), allocatable	out,
		integer, intent(in), optional	facet_type
	)

Parameters

[in]	C	Case data structure.
[out]	out	List of facets, size (2, N_facets), first row is element. ID, second row is facet ID.
[in]	facet_type	Type of facet, optional, (0 = interior, 1 = outlet [default]).

Definition at line 123 of file develop.f90.

get_facets_outlet()

subroutine develop::get_facets_outlet	(	type(case_t), intent(in)	c,
		integer, dimension(:, :), intent(out), allocatable	out
	)

Parameters

[in]	C	Case data structure.
[out]	out	List of outlet facets, size (2, N_facets), first row is element ID, second row is facet ID.

Definition at line 173 of file develop.f90.

sum_weighted()

pure real(kind=rp) function develop::sum_weighted	(	real(kind=rp), dimension(:), intent(in)	a,
		real(kind=rp), dimension(:), intent(in), optional	w
	)

Parameters

[in]	a	Array.
[in]	w	Weights, optional.

Returns

Weighted sum of array.

This function computes the weighted sum of an array. The weights must be the same size as the array. If no weights are supplied, the unweighted sum is computed.

Definition at line 187 of file develop.f90.

Variable Documentation

facet_type_inlet

integer, parameter, public develop::facet_type_inlet = 2

Definition at line 51 of file develop.f90.

facet_type_interior

integer, parameter, public develop::facet_type_interior = 0

Definition at line 49 of file develop.f90.

facet_type_outlet

integer, parameter, public develop::facet_type_outlet = 1

Definition at line 50 of file develop.f90.

facet_type_sympln

integer, parameter, public develop::facet_type_sympln = 4

Definition at line 53 of file develop.f90.

facet_type_wall

integer, parameter, public develop::facet_type_wall = 3

Definition at line 52 of file develop.f90.