model.f90 File Reference

Model subroutines. More...

Go to the source code of this file.

Functions/Subroutines
subroutine, public	model::modelpu (neq, time, ystate, yprime)
	Model supplied to the integrator. More...

Variables
integer, public	model::ngas
	number of gases
integer, public	model::nfv
	number of finite volumes
integer, dimension(:), allocatable, public	model::mor
	morphology: 1=cell,2=wall,3=sheet
real(dp), dimension(:), allocatable, public	model::dz
	size of finite volume
real(dp), dimension(:), allocatable, public	model::dif
	diffusivity
real(dp), dimension(:), allocatable, public	model::sol
	solubility
real(dp), dimension(:), allocatable, public	model::bc
	boundary condition

Detailed Description

Model subroutines.

Author

Michal Vonka

Pavel Ferkl

Implementation of the physical equations.

Definition in file model.f90.

Function/Subroutine Documentation

modelpu()

subroutine, public model::modelpu	(	integer, intent(in)	neq,
		real(dp), intent(in)	time,
		real(dp), dimension(neq), intent(in)	ystate,
		real(dp), dimension(neq), intent(out)	yprime
	)

Model supplied to the integrator.

Model to describes diffusion of gases through polymer. Wall is discretized into finite elements, pressure in cell is in equilibrium to the pressure on the wall, solubility given by Henry's law cpol = H*cgas. Model call is defined for ODEPACK.

Parameters

[in]	time	time
[in]	neq	number of equations
[in]	ystate	integrated variables
[out]	yprime	derivatives of integrated variables

Definition at line 33 of file model.f90.