set_coef_constant Subroutine

private subroutine set_coef_constant(coef, nalpha)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension(:, -nzgrid:)	::	coef
integer,	intent(in)			::	nalpha