bdrymod Module

Boundary handling for altimetry (top) and bathymetry (bottom) with interpolation capabilities

Uses

- FatalError
- monotonicMod
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.

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.

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	ATIFile	=	40
integer,	public,	parameter	::	BTYFile	=	41
integer,	public,	parameter	::	Number_to_Echo	=	21
integer,	public		::	IsegTop
integer,	public		::	IsegBot
integer,	protected		::	NATIPts	=	2
integer,	protected		::	NBTYPts	=	2
integer,	public		::	ii
integer,	public		::	IOStat
integer,	public		::	IAllocStat
integer,	public		::	iSmallStepCtr	=	0
real(kind=8),	public		::	rTopseg(2)
real(kind=8),	public		::	rBotseg(2)
character(len=2),	public		::	atiType	=	'LS'
character(len=2),	public		::	btyType	=	'LS'
type(BdryPt),	public,	ALLOCATABLE	::	Top(:)
type(BdryPt),	public,	ALLOCATABLE	::	Bot(:)

Derived Types

type, public :: HSInfo2

Components

Type	Visibility	Attributes		Name		Initial
real(kind=8),	public		::	alphaR
real(kind=8),	public		::	alphaI
real(kind=8),	public		::	betaR
real(kind=8),	public		::	betaI
complex(kind=8),	public		::	cP
complex(kind=8),	public		::	cS
real(kind=8),	public		::	rho
real(kind=8),	public		::	Depth
character(len=1),	public		::	BC
character(len=6),	public		::	Opt

type, public :: BdryPt

Components

Type	Visibility	Attributes		Name		Initial
real(kind=8),	public		::	x(2)
real(kind=8),	public		::	t(2)
real(kind=8),	public		::	n(2)
real(kind=8),	public		::	Nodet(2)
real(kind=8),	public		::	Noden(2)
real(kind=8),	public		::	Len
real(kind=8),	public		::	Kappa
real(kind=8),	public		::	Dx
real(kind=8),	public		::	Dxx
real(kind=8),	public		::	Dss
type(HSInfo2),	public		::	HS

Subroutines

public subroutine ReadATI(FileRoot, TopATI, DepthT, PRTFile)

Reads in the top altimetry

Arguments

Type	Intent	Optional	Attributes		Name
character(len=80),	intent(in)			::	FileRoot
character(len=1),	intent(in)			::	TopATI
real(kind=8),	intent(in)			::	DepthT
integer,	intent(in)			::	PRTFile

public subroutine ReadBTY(FileRoot, BotBTY, DepthB, PRTFile)

Reads in the bottom bathymetry

Arguments

Type	Intent	Optional	Attributes		Name
character(len=80),	intent(in)			::	FileRoot
character(len=1),	intent(in)			::	BotBTY
real(kind=8),	intent(in)			::	DepthB
integer,	intent(in)			::	PRTFile

public subroutine ComputeBdryTangentNormal(Bdry, BotTop)

Arguments

Type	Intent	Optional	Attributes		Name
type(BdryPt),	intent(inout)			::	Bdry(:)
character(len=3),	intent(in)			::	BotTop

public subroutine GetTopSeg(r, t)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	r
real(kind=8),	intent(in)			::	t

public subroutine GetBotSeg(r, t)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	r
real(kind=8),	intent(in)			::	t