PDAFomi_weights_l Subroutine

public subroutine PDAFomi_weights_l(verbose, nobs_l, ncols, locweight, cradius, sradius, matA, ivar_obs_l, dist_l, weight_l)

Compute weight vector for localization

The routine computes a weight vector according to the distances of observations from the local analysis domain.

Revision history: * 2020-03 - Lars Nerger - Initial code from restructuring observation routines * Later revisions - see repository log

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	verbose
integer,	intent(in)			::	nobs_l
integer,	intent(in)			::	ncols
integer,	intent(in)			::	locweight
real,	intent(in)			::	cradius(:)
real,	intent(in)			::	sradius(:)
real,	intent(in)			::	matA(:,:)
real,	intent(in)			::	ivar_obs_l(:)
real,	intent(in)			::	dist_l(:)
real,	intent(out)			::	weight_l(:)