snow_augment Subroutine

private subroutine snow_augment(mp, kk, qprec_snow, Ta, tfin, vsnow)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=i_d),	intent(in)			::	mp
integer(kind=i_d),	intent(in)			::	kk
real(kind=r_2),	intent(inout),		DIMENSION(mp)	::	qprec_snow
real(kind=r_2),	intent(in),		DIMENSION(mp)	::	Ta
real(kind=r_2),	intent(in)			::	tfin
type(vars_snow),	intent(inout),		DIMENSION(1:mp)	::	vsnow