inout_files Module

Subroutines to save the data

Uses

- VTK
- data_arch
- film
- ms_film
- surfile
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Contents

Variables

s_vtk NO_VTK TS_VTK BS_VTK

Subroutines

save_fe_f_vtk save_ms_fe_f_vtk save_profile_x_fe save_profile_x_ms save_profile_x_comp_slider save_profile_x_comp_air_pocket save_profile_y_comp_air_pocket

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=I4),	public		::	s_vtk
integer(kind=I4),	public,	parameter	::	NO_VTK	=	0
integer(kind=I4),	public,	parameter	::	TS_VTK	=	1
integer(kind=I4),	public,	parameter	::	BS_VTK	=	2

Subroutines

public subroutine save_fe_f_vtk(fe_f, nom_fic)

Arguments

Type	Intent	Optional	Attributes		Name
type(FE_FILM),	intent(in)			::	fe_f	FE_FILM element to store
character(len=*),	intent(in)			::	nom_fic	filename

public subroutine save_ms_fe_f_vtk(ms_fe_f, nom_fic)

Arguments

Type	Intent	Optional	Attributes		Name
type(MS_FE_FILM),	intent(in)			::	ms_fe_f	MS_FE_FILM element to store
character(len=*),	intent(in)			::	nom_fic	filename

public subroutine save_profile_x_fe(fe_f, file_name, lx, zy)

Arguments

Type	Intent	Optional	Attributes		Name
type(FE_FILM),	intent(in)			::	fe_f	FE_FILM element
character(len=*),	intent(in)			::	file_name	filename
real(kind=R8),	intent(in)			::	lx	surface length
real(kind=R8),	intent(in)			::	zy	distance from a border

public subroutine save_profile_x_ms(ms_fe_f, file_name, lx, zy)

Arguments

Type	Intent	Optional	Attributes		Name
type(MS_FE_FILM),	intent(in)			::	ms_fe_f	MS_FE_FILM element
character(len=*),	intent(in)			::	file_name	filename
real(kind=R8),	intent(in)			::	lx	surface length
real(kind=R8),	intent(in)			::	zy	distance from a border

public subroutine save_profile_x_comp_slider(fe_f, file_name, lx, zy)

Arguments

Type	Intent	Optional	Attributes		Name
type(FE_FILM),	intent(in)			::	fe_f	FE_FILM element
character(len=*),	intent(in)			::	file_name	filename
real(kind=R8),	intent(in)			::	lx	slider length
real(kind=R8),	intent(in)			::	zy	distance from a border

public subroutine save_profile_x_comp_air_pocket(fe_f, file_name, lx, zy, bc)

Arguments

Type	Intent	Optional	Attributes		Name
type(FE_FILM),	intent(in)			::	fe_f	FE_FILM element
character(len=*),	intent(in)			::	file_name	filename
real(kind=R8),	intent(in)			::	lx	pocket length
real(kind=R8),	intent(in)			::	zy	distance from a border
real(kind=R8),	intent(in),		dimension(4)	::	bc	pressure boundaries

public subroutine save_profile_y_comp_air_pocket(fe_f, file_name, ly, zx, bc)

Arguments

Type	Intent	Optional	Attributes		Name
type(FE_FILM),	intent(in)			::	fe_f	FE_FILM element
character(len=*),	intent(in)			::	file_name	filename
real(kind=R8),	intent(in)			::	ly	pocket width
real(kind=R8),	intent(in)			::	zx	distance from the pocket entry
real(kind=R8),	intent(in),		dimension(4)	::	bc	pressure boundaries