sulfate_aer_mod Module

*************

Contents

Functions

psh2so4 ndsh2so4 psh2o density surftension wph2so4 solh2so4 rpmvh2so4 rmvh2o

Subroutines

STRACOMP_KELVIN STRACOMP STRAACT DENH2SA FIND POSITION POSACT

Functions

public function psh2so4(T) result(psh2so4_out)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	T

Return Value real

public function ndsh2so4(T) result(ndsh2so4_out)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	T

Return Value real

public function psh2o(T) result(psh2o_out)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	T

Return Value real

public function density(T, so4mfrac) result(density_out)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	T
real,	intent(in)			::	so4mfrac

Return Value real

public function surftension(T, so4frac) result(surftension_out)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	T
real,	intent(in)			::	so4frac

Return Value real

public function wph2so4(pph2o, T) result(wph2so4_out)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	pph2o
real,	intent(in)			::	T

Return Value real

public function solh2so4(T, xa) result(solh2so4_out)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	T
real,	intent(in)			::	xa

Return Value real

public function rpmvh2so4(T, ws) result(rpmvh2so4_out)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	T
real,	intent(in)			::	ws

Return Value real

public function rmvh2o(T) result(rmvh2o_out)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	T

Return Value real

Subroutines

public subroutine STRACOMP_KELVIN(sh, t_seri, pplay)

equilibrium H2O pressure over pure flat liquid water (Pa) pflath2o=psh2o(temp)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		DIMENSION(klon,klev)	::	sh
real,	intent(in),		DIMENSION(klon,klev)	::	t_seri
real,	intent(in),		DIMENSION(klon,klev)	::	pplay

public subroutine STRACOMP(sh, t_seri, pplay)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		DIMENSION(klon,klev)	::	sh
real,	intent(in),		DIMENSION(klon,klev)	::	t_seri
real,	intent(in),		DIMENSION(klon,klev)	::	pplay

public subroutine STRAACT(ACTSO4)

Arguments

Type	Intent	Optional	Attributes		Name
real				::	ACTSO4(klon,klev)

public subroutine DENH2SA(t_seri)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		DIMENSION(klon,klev)	::	t_seri

public subroutine FIND(X, Y, XC, YC, F, VAL, N, M)

Arguments

Type	Intent	Optional	Attributes		Name
real				::	X
real				::	Y
real				::	XC(N)
real				::	YC(M)
real				::	F(N,M)
real				::	VAL
integer				::	N
integer				::	M

public subroutine POSITION(XC, X, N, JX, IER)

Arguments

Type	Intent	Optional	Attributes		Name
real				::	XC(N)
real				::	X
integer				::	N
integer				::	JX
integer				::	IER

public subroutine POSACT(XT, X, N, JX)

Arguments

Type	Intent	Optional	Attributes		Name
real				::	XT
real				::	X(N)
integer				::	N
integer				::	JX