PDAF_hyb3dvar_update_lestkf Subroutine

subroutine PDAF_hyb3dvar_update_lestkf(step, dim_p, dim_obs_p, dim_ens, dim_cvec, dim_cvec_ens, state_p, Uinv, ens_p, state_inc_p, forget, U_init_dim_obs, U_obs_op, U_init_obs, U_prodRinvA, U_prepoststep, U_cvt_ens, U_cvt_adj_ens, U_cvt, U_cvt_adj, U_obs_op_lin, U_obs_op_adj, U_init_dim_obs_f, U_obs_op_f, U_init_obs_f, U_init_obs_l, U_prodRinvA_l, U_init_n_domains_p, U_init_dim_l, U_init_dim_obs_l, U_g2l_state, U_l2g_state, U_g2l_obs, U_init_obsvar, U_init_obsvar_l, screen, subtype, incremental, type_forget, type_opt, flag)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	step
integer,	intent(in)			::	dim_p
integer,	intent(out)			::	dim_obs_p
integer,	intent(in)			::	dim_ens
integer,	intent(in)			::	dim_cvec
integer,	intent(in)			::	dim_cvec_ens
real,	intent(inout)			::	state_p(dim_p)
real,	intent(inout)			::	Uinv(dim_ens-1,dim_ens-1)
real,	intent(inout)			::	ens_p(dim_p,dim_ens)
real,	intent(inout)			::	state_inc_p(dim_p)
real,	intent(in)			::	forget
real				::	U_init_dim_obs
real				::	U_obs_op
real				::	U_init_obs
real				::	U_prodRinvA
real				::	U_prepoststep
real				::	U_cvt_ens
real				::	U_cvt_adj_ens
real				::	U_cvt
real				::	U_cvt_adj
real				::	U_obs_op_lin
real				::	U_obs_op_adj
real				::	U_init_dim_obs_f
real				::	U_obs_op_f
real				::	U_init_obs_f
real				::	U_init_obs_l
real				::	U_prodRinvA_l
real				::	U_init_n_domains_p
real				::	U_init_dim_l
real				::	U_init_dim_obs_l
real				::	U_g2l_state
real				::	U_l2g_state
real				::	U_g2l_obs
real				::	U_init_obsvar
real				::	U_init_obsvar_l
integer,	intent(in)			::	screen
integer,	intent(in)			::	subtype
integer,	intent(in)			::	incremental
integer,	intent(in)			::	type_forget
integer,	intent(in)			::	type_opt
integer,	intent(inout)			::	flag