PDAF_enkf_Omega Subroutine

subroutine PDAF_enkf_Omega(seed, r, dim_ens, Omega, norm, otype, screen)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	seed(4)
integer,	intent(in)			::	r
integer,	intent(in)			::	dim_ens
real,	intent(inout)			::	Omega(dim_ens,r)
real,	intent(inout)			::	norm
integer,	intent(in)			::	otype
integer,	intent(in)			::	screen