sli_roots Module

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=r_2),	private,	parameter	::	b1	=	24.66
real(kind=r_2),	private,	parameter	::	b2	=	1.59
real(kind=r_2),	private,	parameter	::	lambda	=	1.0

Interfaces

public interface setroots

• private subroutine setroots_1d(x, F10, Zr, Fs)

  Arguments

  Type	Intent	Optional	Attributes		Name
  real(kind=r_2),	intent(in),		DIMENSION(:)	::	x
  real(kind=r_2),	intent(in)			::	F10
  real(kind=r_2),	intent(in)			::	Zr
  real(kind=r_2),	intent(out),		DIMENSION(:)	::	Fs

• private subroutine setroots_2d(x, F10, Zr, Fs)

  Arguments

  Type	Intent	Optional	Attributes		Name
  real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	x
  real(kind=r_2),	intent(in),		DIMENSION(:)	::	F10
  real(kind=r_2),	intent(in),		DIMENSION(:)	::	Zr
  real(kind=r_2),	intent(out),		DIMENSION(:,:)	::	Fs

public interface getrex

• private subroutine getrex_1d(S, rex, fws, Fs, thetaS, thetaw, Etrans, gamma, dx, dt)

  Arguments

  Type	Intent	Optional	Attributes		Name
  real(kind=r_2),	intent(in),		DIMENSION(:)	::	S
  real(kind=r_2),	intent(out),		DIMENSION(:)	::	rex
  real(kind=r_2),	intent(inout)			::	fws
  real(kind=r_2),	intent(in),		DIMENSION(:)	::	Fs
  real(kind=r_2),	intent(in),		DIMENSION(:)	::	thetaS
  real(kind=r_2),	intent(in),		DIMENSION(:)	::	thetaw
  real(kind=r_2),	intent(in)			::	Etrans
  real(kind=r_2),	intent(in)			::	gamma
  real(kind=r_2),	intent(in),		DIMENSION(:)	::	dx
  real(kind=r_2),	intent(in)			::	dt

• private subroutine getrex_2d(S, rex, fws, Fs, thetaS, thetaw, Etrans, gamma, dx, dt)

  Arguments

  Type	Intent	Optional	Attributes		Name
  real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	S
  real(kind=r_2),	intent(out),		DIMENSION(:,:)	::	rex
  real(kind=r_2),	intent(inout),		DIMENSION(:)	::	fws
  real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	Fs
  real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	thetaS
  real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	thetaw
  real(kind=r_2),	intent(in),		DIMENSION(:)	::	Etrans
  real(kind=r_2),	intent(in),		DIMENSION(:)	::	gamma
  real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	dx
  real(kind=r_2),	intent(in)			::	dt

Subroutines

private subroutine setroots_1d(x, F10, Zr, Fs)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r_2),	intent(in),		DIMENSION(:)	::	x
real(kind=r_2),	intent(in)			::	F10
real(kind=r_2),	intent(in)			::	Zr
real(kind=r_2),	intent(out),		DIMENSION(:)	::	Fs

private subroutine setroots_2d(x, F10, Zr, Fs)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	x
real(kind=r_2),	intent(in),		DIMENSION(:)	::	F10
real(kind=r_2),	intent(in),		DIMENSION(:)	::	Zr
real(kind=r_2),	intent(out),		DIMENSION(:,:)	::	Fs

private subroutine getrex_1d(S, rex, fws, Fs, thetaS, thetaw, Etrans, gamma, dx, dt)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r_2),	intent(in),		DIMENSION(:)	::	S
real(kind=r_2),	intent(out),		DIMENSION(:)	::	rex
real(kind=r_2),	intent(inout)			::	fws
real(kind=r_2),	intent(in),		DIMENSION(:)	::	Fs
real(kind=r_2),	intent(in),		DIMENSION(:)	::	thetaS
real(kind=r_2),	intent(in),		DIMENSION(:)	::	thetaw
real(kind=r_2),	intent(in)			::	Etrans
real(kind=r_2),	intent(in)			::	gamma
real(kind=r_2),	intent(in),		DIMENSION(:)	::	dx
real(kind=r_2),	intent(in)			::	dt

private subroutine getrex_2d(S, rex, fws, Fs, thetaS, thetaw, Etrans, gamma, dx, dt)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	S
real(kind=r_2),	intent(out),		DIMENSION(:,:)	::	rex
real(kind=r_2),	intent(inout),		DIMENSION(:)	::	fws
real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	Fs
real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	thetaS
real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	thetaw
real(kind=r_2),	intent(in),		DIMENSION(:)	::	Etrans
real(kind=r_2),	intent(in),		DIMENSION(:)	::	gamma
real(kind=r_2),	intent(in),		DIMENSION(:,:)	::	dx
real(kind=r_2),	intent(in)			::	dt