Conjugated heat transfer tools

Conjugated heat transfer tools. More...

Collaboration diagram for Conjugated heat transfer tools:

Files
file	cnht_tools.f
	Set of utilities related to conjugated heat transfer to build single scalar product for velocity nad temperature.

Functions
subroutine	cnht_register ()
	Register conjugated heat transfer tools module. More...
subroutine	cnht_init ()
	Initilise conjugated heat transfer tools module. More...
logical function	cnht_is_initialised ()
	Check if module was initialised. More...
subroutine	cnht_forcing (ffx, ffy, ffz, ix, iy, iz, ieg)
	Calcualte forcing ralted to conjugated heat transfer. More...
subroutine	cnht_cpfld_set ()
	Set cpfld coefficient for given type of simulation. More...
subroutine	cnht_oprzero (a1, a2, a3, a4)
	Zero velocity and temperature vectors. More...
subroutine	cnht_opcopy (a1, a2, a3, a4, b1, b2, b3, b4)
	Copy vectors A=B (velocity and temperature) More...
subroutine	cnht_opadd2 (a1, a2, a3, a4, b1, b2, b3, b4)
	Add velocity and temperature vectors A = A+B. More...
subroutine	cnht_opsub2 (a1, a2, a3, a4, b1, b2, b3, b4)
	Subtract vectors A = A-B (velocity and temperature) More...
subroutine	cnht_opsub3 (a1, a2, a3, a4, b1, b2, b3, b4, c1, c2, c3, c4)
	Subtract vectors A = B-C (velocity and temperature) More...
subroutine	cnht_opcmult (a1, a2, a3, a4, const)
	Multiply vector by constant A = c*A (single coeff. for velocity and temperature) More...
subroutine	cnht_opcmult2c (a1, a2, a3, a4, const1, const2)
	Multiply vector by constant A = c*A with separate const. for velocity and temperature. More...
subroutine	cnht_opadd2cm (a1, a2, a3, a4, b1, b2, b3, b4, coeff)
	Vector summation with scaling A = A+c*B (velocity and temperature) More...
subroutine	cnht_opsub2cm (a1, a2, a3, a4, b1, b2, b3, b4, coeff)
	Vector subtraction with scaling A = A-c*B (velocity and temperature) More...
subroutine	cnht_weight_fun (lvx, lvy, lvz, lt, coeff)
	Weigth velocity and temperature fields. More...
real function	cnht_glsc2_wt (b1, b2, b3, b4, x1, x2, x3, x4, wt)
	Global inner product of velocity and temperature fields. More...

Detailed Description

Conjugated heat transfer tools.

Set of utilities related to conjugated heat transfer to build single scalar product for velocity nad temperature. This module is automatically registered by Time stepper routines module.

Todo:

Complete documentation

Module interface:

Global interface list:

Interface provided:

1. cnht_register
2. cnht_init
3. cnht_is_initialised
4. cnht_forcing
5. cnht_cpfld_set
6. cnht_oprzero
7. cnht_opcopy
8. cnht_opadd2
9. cnht_opsub2
10. cnht_opsub3
11. cnht_opcmult
12. cnht_opcmult2c
13. cnht_opadd2cm
14. cnht_opsub2cm
15. cnht_weight_fun
16. cnht_glsc2_wt

Global interface dependency:

Interface required:

1. multiple interfaces from Runtime parameters and Monitoring module modules

Module parameters:

Global parameter list:

Parameters provided by time snht module (include file - CNHTD):

Varaible	Type	Runtime parameter	Description
cnht_sc	real	_cnht:scln	norm scaling factor
cnht_sv	real	_cnht:sclv	velocity scaling factor (Pareto curve)
cnht_st	real	_cnht:sclt	temperature scaling factor (Pareto curve)
cnht_gx	real	_cnht:grx	X component of gravitational field
cnht_gy	real	_cnht:gry	Y component of gravitational field
cnht_gz	real	_cnht:grz	Z component of gravitational field

Module parameters:

Global parameter dependency:

Parameters required by time stepper module:

1. Nek5000 PARAM array
   • PARAM(1)
   • PARAM(2)

Module parameter usage:

[_CNHT]               # Runtime paramere section for conj. heat trans. tool module
SCLN                 = 0.33655800E+01         # Norm scaling factor
SCLV                 = 0.50000000E+00         # Velocity scaling factor (Pareto curve)
SCLT                 = 0.50000000E+00         # Temperature scaling factor (Pareto curve)
GRX                  = 0.00000000E+00         # X component of gravitational field
GRY                  = 0.10000000E+01         # Y component of gravitational field

Function Documentation

cnht_cpfld_set()

subroutine cnht_cpfld_set

Set cpfld coefficient for given type of simulation.

Definition at line 205 of file cnht_tools.f.

Here is the caller graph for this function:

cnht_forcing()

subroutine cnht_forcing	(	real	ffx,
		real	ffy,
		real	ffz,
		integer	ix,
		integer	iy,
		integer	iz,
		integer	ieg
	)

Calcualte forcing ralted to conjugated heat transfer.

Parameters

[in,out]	ffx,ffy,ffz	forcing; x,y,z component
[in]	ix,iy,iz	GLL point index
[in]	ieg	global element number

Definition at line 159 of file cnht_tools.f.

References gllel().

Here is the call graph for this function:

cnht_glsc2_wt()

real function cnht_glsc2_wt	(	real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
		real, dimension(1)	b4,
		real, dimension(1)	x1,
		real, dimension(1)	x2,
		real, dimension(1)	x3,
		real, dimension(1)	x4,
		real, dimension(1)	wt
	)

Global inner product of velocity and temperature fields.

Parameters

[in]	b1,b2,b3	vlocity field 1
[in]	b4	temperature field 1
[in]	x1,x2,x3	vlocity field 2
[in]	x4	temperature field 2
[in]	wt	mass matrix

Returns

cnht_glsc2_wt

Definition at line 589 of file cnht_tools.f.

References glsum().

Here is the call graph for this function:

cnht_init()

subroutine cnht_init

Initilise conjugated heat transfer tools module.

Note

This routine should be called in frame_usr_init

Definition at line 81 of file cnht_tools.f.

References gradm1(), mntr_warn(), and rprm_rp_get().

Here is the call graph for this function:

Here is the caller graph for this function:

cnht_is_initialised()

logical function cnht_is_initialised

Check if module was initialised.

Returns

cnht_is_initialised

Definition at line 143 of file cnht_tools.f.

cnht_opadd2()

subroutine cnht_opadd2	(	real, dimension(1)	a1,
		real, dimension(1)	a2,
		real, dimension(1)	a3,
		real, dimension(1)	a4,
		real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
		real, dimension(1)	b4
	)

Add velocity and temperature vectors A = A+B.

Parameters

[in,out]	a1,a2,a3	vlocity field 1
[in,out]	a4	temperature field 1
[in]	b1,b2,b3	vlocity field 2
[in]	b4	temperature field 2

Definition at line 309 of file cnht_tools.f.

References add2().

Here is the call graph for this function:

cnht_opadd2cm()

subroutine cnht_opadd2cm	(	real, dimension(1)	a1,
		real, dimension(1)	a2,
		real, dimension(1)	a3,
		real, dimension(1)	a4,
		real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
		real, dimension(1)	b4,
		real	coeff
	)

Vector summation with scaling A = A+c*B (velocity and temperature)

Parameters

[in,out]	a1,a2,a3	vlocity field 1
[in,out]	a4	temperature field 1
[in]	b1,b2,b3	vlocity field 2
[in]	b4	temperature field 2
[in]	coeff	scaling coefficient

Definition at line 468 of file cnht_tools.f.

cnht_opcmult()

subroutine cnht_opcmult	(	real, dimension(1)	a1,
		real, dimension(1)	a2,
		real, dimension(1)	a3,
		real, dimension(1)	a4,
		real	const
	)

Multiply vector by constant A = c*A (single coeff. for velocity and temperature)

Parameters

[in,out]	a1,a2,a3	vlocity fields
[in,out]	a4	temperature field
[in]	const	coefficient

Definition at line 404 of file cnht_tools.f.

References cmult().

Here is the call graph for this function:

Here is the caller graph for this function:

cnht_opcmult2c()

subroutine cnht_opcmult2c	(	real, dimension(1)	a1,
		real, dimension(1)	a2,
		real, dimension(1)	a3,
		real, dimension(1)	a4,
		real	const1,
		real	const2
	)

Multiply vector by constant A = c*A with separate const. for velocity and temperature.

Parameters

[in,out]	a1,a2,a3	vlocity fields
[in,out]	a4	temperature field
[in]	const1	velocity coefficient
[in]	const2	temperature coefficient

Definition at line 436 of file cnht_tools.f.

References cmult().

Here is the call graph for this function:

Here is the caller graph for this function:

cnht_opcopy()

subroutine cnht_opcopy	(	real, dimension(1)	a1,
		real, dimension(1)	a2,
		real, dimension(1)	a3,
		real, dimension(1)	a4,
		real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
		real, dimension(1)	b4
	)

Copy vectors A=B (velocity and temperature)

Parameters

[out]	a1,a2,a3	vlocity field 1
[out]	a4	temperature field 1
[in]	b1,b2,b3	vlocity field 2
[in]	b4	temperature field 2

Definition at line 278 of file cnht_tools.f.

References copy().

Here is the call graph for this function:

Here is the caller graph for this function:

cnht_oprzero()

subroutine cnht_oprzero	(	real, dimension(1)	a1,
		real, dimension(1)	a2,
		real, dimension(1)	a3,
		real, dimension(1)	a4
	)

Zero velocity and temperature vectors.

Parameters

[in,out]	a1,a2,a3	vlocity field 1
[in,out]	a4	temperature field 1

Definition at line 248 of file cnht_tools.f.

References rzero().

Here is the call graph for this function:

cnht_opsub2()

subroutine cnht_opsub2	(	real, dimension(1)	a1,
		real, dimension(1)	a2,
		real, dimension(1)	a3,
		real, dimension(1)	a4,
		real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
		real, dimension(1)	b4
	)

Subtract vectors A = A-B (velocity and temperature)

Parameters

[in,out]	a1,a2,a3	vlocity field 1
[in,out]	a4	temperature field 1
[in]	b1,b2,b3	vlocity field 2
[in]	b4	temperature field 2

Definition at line 340 of file cnht_tools.f.

References sub2().

Here is the call graph for this function:

cnht_opsub2cm()

subroutine cnht_opsub2cm	(	real, dimension(1)	a1,
		real, dimension(1)	a2,
		real, dimension(1)	a3,
		real, dimension(1)	a4,
		real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
		real, dimension(1)	b4,
		real	coeff
	)

Vector subtraction with scaling A = A-c*B (velocity and temperature)

Parameters

[in,out]	a1,a2,a3	vlocity field 1
[in,out]	a4	temperature field 1
[in]	b1,b2,b3	vlocity field 2
[in]	b4	temperature field 2
[in]	coeff	scaling coefficient

Definition at line 514 of file cnht_tools.f.

cnht_opsub3()

subroutine cnht_opsub3	(	real, dimension(1)	a1,
		real, dimension(1)	a2,
		real, dimension(1)	a3,
		real, dimension(1)	a4,
		real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
		real, dimension(1)	b4,
		real, dimension(1)	c1,
		real, dimension(1)	c2,
		real, dimension(1)	c3,
		real, dimension(1)	c4
	)

Subtract vectors A = B-C (velocity and temperature)

Parameters

[out]	a1,a2,a3	vlocity field 1
[out]	a4	temperature field 1
[in]	b1,b2,b3	vlocity field 2
[in]	b4	temperature field 2
[in]	c1,c2,c3	vlocity field 3
[in]	c4	temperature field 3

Definition at line 373 of file cnht_tools.f.

References sub3().

Here is the call graph for this function:

Here is the caller graph for this function:

cnht_register()

subroutine cnht_register

Register conjugated heat transfer tools module.

Note

This routine should be called in frame_usr_register

Definition at line 11 of file cnht_tools.f.

References mntr_abort(), mntr_mod_is_name_reg(), mntr_mod_reg(), mntr_warn(), rprm_rp_reg(), rprm_sec_reg(), and rprm_sec_set_act().

Here is the call graph for this function:

Here is the caller graph for this function:

cnht_weight_fun()

subroutine cnht_weight_fun	(	real, dimension(1)	lvx,
		real, dimension(1)	lvy,
		real, dimension(1)	lvz,
		real, dimension(1)	lt,
		real	coeff
	)

Weigth velocity and temperature fields.

Parameters

[in,out]	lvx,lvy,lvz	vlocity fields
[in,out]	lt	temperature field
[in]	coeff	scaling coefficient

Definition at line 558 of file cnht_tools.f.

References cnht_opcmult2c().

Here is the call graph for this function:

Here is the caller graph for this function: