water_isotopes Module

Uses

- shr_kind_mod
- shr_const_mod

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	ispundef	=	0
integer,	public,	parameter	::	isph2o	=	1
integer,	public,	parameter	::	isph216o	=	2
integer,	public,	parameter	::	isphdo	=	3
integer,	public,	parameter	::	isph218o	=	4
integer,	public,	parameter	::	pwtspec	=	4
character(len=8),	public,	parameter, dimension(pwtspec)	::	spnam	=	(/'H2O ', 'H216O ', 'HD16O ', 'H218O '/)

Functions

public function wiso_alpl(isp, tk)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp
real(kind=r8),	intent(in)			::	tk

Return Value real(kind=r8)

public function wiso_alpi(isp, tk)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp
real(kind=r8),	intent(in)			::	tk

Return Value real(kind=r8)

public function wiso_akel(isp, tk, hum0, alpeq)

difrmj = difrm(isp)/fisub(isp) else wiso_akel = alpeq end if

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp
real(kind=r8),	intent(in)			::	tk
real(kind=r8),	intent(in)			::	hum0
real(kind=r8),	intent(in)			::	alpeq

Return Value real(kind=r8)

public function wiso_akci(isp, tk, alpeq)

difrmj = difrm(isp)/fisub(isp) wiso_akci = wiso_akci**expk(isp)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp
real(kind=r8),	intent(in)			::	tk
real(kind=r8),	intent(in)			::	alpeq

Return Value real(kind=r8)

public function wiso_get_roce(isp)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp

Return Value real(kind=r8)

public function wiso_heff(h0)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	h0

Return Value real(kind=r8)

public function wiso_ssatf(tk)

wiso_ssatf = max(wiso_ssatf, fsata)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	tk

Return Value real(kind=r8)

public function wiso_get_rstd(isp)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp

Return Value real(kind=r8)

public function wiso_get_fisub(isp)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp

Return Value real(kind=r8)

public function wiso_get_ispec(name)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	name

Return Value integer

public function wiso_ratio(isp, qiso, qtot)

wiso_ratio = espmw(isp)*wiso_ratio/fisum(isp) ! correct!

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp
real(kind=r8),	intent(in)			::	qiso
real(kind=r8),	intent(in)			::	qtot

Return Value real(kind=r8)

public function wiso_delta(isp, qiso, qtot)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp
real(kind=r8),	intent(in)			::	qiso
real(kind=r8),	intent(in)			::	qtot

Return Value real(kind=r8)

Subroutines

public subroutine wiso_init()

Arguments

None

public subroutine wiso_kmol(isp, rbot, zbot, ustar, alpkn)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp
real(kind=r8),	intent(in)			::	rbot
real(kind=r8),	intent(in)			::	zbot
real(kind=r8),	intent(in)			::	ustar
real(kind=r8),	intent(out)			::	alpkn

public subroutine wiso_kmolv10(isp, ustar, alpkn)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	isp
real(kind=r8),	intent(in)			::	ustar
real(kind=r8),	intent(out)			::	alpkn

public subroutine wiso_flxoce(iso, rbot, zbot, wtbot, ts, rocn, ustar, re, ssq, qflx, qbot, qe)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	iso
real(kind=r8),	intent(in)			::	rbot
real(kind=r8),	intent(in)			::	zbot
real(kind=r8),	intent(in)			::	wtbot
real(kind=r8),	intent(in)			::	ts
real(kind=r8),	intent(in)			::	rocn
real(kind=r8),	intent(in)			::	ustar
real(kind=r8),	intent(in)			::	re
real(kind=r8),	intent(in)			::	ssq
real(kind=r8),	intent(out)			::	qflx
real(kind=r8),	intent(in)			::	qbot
real(kind=r8),	intent(in)			::	qe