tria.f File Reference

Read/write for EIRENE triangular grid. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gridman_tria_read_array (FNAMES, NRKNOT, NTRII, XYTRIAN, NECKE, NCHBAR, NSEITE, ITRI, IERR)
	Read EIRENE triangular grid from fort.33-35, return set of arrays. More...
subroutine	gridman_tria_write_array (FNAMES, NRKNOT, NTRII, XYTRIAN, NECKE, NCHBAR, NSEITE, ITRI, IERR)
	Write EIRENE triangular grid - defined as set of arrays - into fort.33-35. More...

Detailed Description

Read/write for EIRENE triangular grid.

Definition in file tria.f.

Function/Subroutine Documentation

subroutine gridman_tria_read_array	(	character(*), dimension(3)	FNAMES,
		integer(gridman_sp), intent(out)	NRKNOT,
		integer(gridman_sp), intent(out)	NTRII,
		real(gridman_dp), dimension(:,:), allocatable	XYTRIAN,
		integer(gridman_sp), dimension(:,:), allocatable	NECKE,
		integer(gridman_sp), dimension(:,:), allocatable	NCHBAR,
		integer(gridman_sp), dimension(:,:), allocatable	NSEITE,
		integer(gridman_sp), dimension(:,:), allocatable	ITRI,
		integer, intent(out)	IERR
	)

Read EIRENE triangular grid from fort.33-35, return set of arrays.

Todo:

To add reading of fort.33 in S.Lisgo's format

WARNING: arrays XYTRIAN, NECKE, NCHBAR, NSEITE must NOT be allocated - they are allocated inside the subroutine. Arrays which already exist will be re-allocated

GRIDMAN_TRIA_READ_ARRAY and GRIDMAN_TRIA_READ_GRID are combined in the interface GRIDMAN_TRIA_READ

Parameters

fnames

Strungs with names of three input files

If FNAMES has zero length than standard names are used: fort.33, fort.34, fort.35

Parameters

[out]	nrknot	Number of nodes
[out]	ntrii	Number of triangles
	xytrian	Coordinates of the nodes XYTRIAN(2,NRKNOT)

XYTRIAN(1,:) is X coordinate, XYTRIAN(2,:) is Y coordinate,

Parameters

necke	Indices of nodes for each triangle, NECKE(3,NTRII)
nchbar	Indices of neighbour cells for each triangle, NCHBAR(3,NTRII)
nseite	Indices of sides of neighbour cells (for each triangle), NSEITE(3,NTRII)
itri	Tags from fort.35, ITRI(5,NTRII)

ITRI(1,:) and ITRI(2,:) are IXTRI and IYTRI. ITRI(3:5,:) are tags of each side of the triange.

Parameters

[out]

ierr

Error code

Definition at line 38 of file tria.f.

References gridman::gridman_dbg, gridman::gridman_dp, gridman::gridman_sp, and gridman::gridman_unit.

Referenced by gridman_tria_read_grid().

Here is the caller graph for this function:

subroutine gridman_tria_write_array	(	character(*), dimension(3)	FNAMES,
		integer(gridman_sp), intent(in)	NRKNOT,
		integer(gridman_sp), intent(in)	NTRII,
		real(gridman_dp), dimension(2,nrknot), intent(in)	XYTRIAN,
		integer(gridman_sp), dimension(3,ntrii), intent(in)	NECKE,
		integer(gridman_sp), dimension(3,ntrii), intent(in)	NCHBAR,
		integer(gridman_sp), dimension(3,ntrii), intent(in)	NSEITE,
		integer(gridman_sp), dimension(5,ntrii), intent(in)	ITRI,
		integer, intent(out)	IERR
	)

Write EIRENE triangular grid - defined as set of arrays - into fort.33-35.

Output of GRIDMAN_TRIA_READ is input of GRIDMAN_TRIA_WRITE

GRIDMAN_TRIA_WRITE_ARRAY and GRIDMAN_TRIA_WRITE_GRID are combined in the interface GRIDMAN_TRIA_WRITE

Parameters

fnames

Strungs with names of three input files

If FNAMES has zero length than standard names are used: fort.33, fort.34, fort.35

Parameters

[in]	nrknot	Number of nodes
[in]	ntrii	Number of triangles
[in]	xytrian	Coordinates of the nodes

XYTRIAN(1,:) is X coordinate, XYTRIAN(2,:) is Y coordinate,

Parameters

[in]	necke	Indices of nodes for each triangle
[in]	nchbar	Indices of neighbour cells for each triangle
[in]	nseite	Indices of sides of neighbour cells (for each triangle)
[in]	itri	Tags for fort.35

ITRI(1,:) and ITRI(2,:) are IXTRI and IYTRI. ITRI(3:5,:) are tags of each side of the triangle

Parameters

[out]

ierr

Error code

Definition at line 270 of file tria.f.

References gridman::gridman_dbg, gridman::gridman_dp, gridman::gridman_sp, and gridman::gridman_unit.

Referenced by gridman_tria_write_grid().

Here is the caller graph for this function: