MODE_SURF_SNOW_FRAC Module

Uses

- PARKIND1
- YOMHOOK

Contents

Functions

SNOW_FRAC_GROUND WSNOW_FROM_SNOW_FRAC_GROUND SNOW_FRAC_VEG SNOW_FRAC_VEG_A SNOW_FRAC_NAT SNOW_FRAC_NAT_1D SNOW_FRAC_NAT_2D SNOW_FRAC_VEG_1D SNOW_FRAC_VEG_2D SNOW_FRAC_GROUND_1D SNOW_FRAC_GROUND_2D

Subroutines

SNOW_FRAC_ROAD SNOW_FRAC_ROOF

Functions

public function SNOW_FRAC_GROUND(PWSNOW) result(PPSNG)

Arguments

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

Return Value real, DIMENSION(SIZE(PWSNOW))

public function WSNOW_FROM_SNOW_FRAC_GROUND(PPSNG) result(PWSNOW)

Arguments

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

Return Value real, DIMENSION(SIZE(PPSNG))

public function SNOW_FRAC_VEG(PPSNG, PWSNOW, PZ0VEG, PRHOS) result(PPSNV)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		DIMENSION(:)	::	PPSNG
real,	intent(in),		DIMENSION(:)	::	PWSNOW
real,	intent(in),		DIMENSION(:)	::	PZ0VEG
real,	intent(in),		DIMENSION(:)	::	PRHOS

Return Value real, DIMENSION(SIZE(PWSNOW))

public function SNOW_FRAC_VEG_A(P_PSNG, P_LAI, P_SNOWALB) result(PPSNV)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		DIMENSION(:)	::	P_PSNG
real,	intent(in),		DIMENSION(:)	::	P_LAI
real,	intent(in),		DIMENSION(:)	::	P_SNOWALB

Return Value real, DIMENSION(SIZE(P_LAI))

public function SNOW_FRAC_NAT(PWSNOW, PPSNG, PPSNV, PVEG) result(PPSN)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		DIMENSION(:)	::	PWSNOW
real,	intent(in),		DIMENSION(:)	::	PPSNG
real,	intent(in),		DIMENSION(:)	::	PPSNV
real,	intent(in),		DIMENSION(:)	::	PVEG

Return Value real, DIMENSION(SIZE(PWSNOW))

public function SNOW_FRAC_NAT_1D(PWSNOW) result(BIDON)

Arguments

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

Return Value real

public function SNOW_FRAC_NAT_2D(PWSNOW) result(BIDON)

Arguments

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

Return Value real

public function SNOW_FRAC_VEG_1D(PWSNOW) result(BIDON)

Arguments

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

Return Value real

public function SNOW_FRAC_VEG_2D(PWSNOW) result(BIDON)

Arguments

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

Return Value real

public function SNOW_FRAC_GROUND_1D(PWSNOW) result(BIDON)

Arguments

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

Return Value real

public function SNOW_FRAC_GROUND_2D(PWSNOW) result(BIDON)

Arguments

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

Return Value real

Subroutines

public subroutine SNOW_FRAC_ROAD(PWSNOW_ROAD, OSNOW, PDN_ROAD, PDF_ROAD)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		DIMENSION(:)	::	PWSNOW_ROAD
logical,	intent(in),		DIMENSION(:)	::	OSNOW
real,	intent(out),		DIMENSION(:)	::	PDN_ROAD
real,	intent(out),		DIMENSION(:)	::	PDF_ROAD

public subroutine SNOW_FRAC_ROOF(PWSNOW_ROOF, OSNOW, PDN_ROOF, PDF_ROOF)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		DIMENSION(:)	::	PWSNOW_ROOF
logical,	intent(in),		DIMENSION(:)	::	OSNOW
real,	intent(out),		DIMENSION(:)	::	PDN_ROOF
real,	intent(out),		DIMENSION(:)	::	PDF_ROOF