PDAF_en3dvar_update_lestkf Subroutine

subroutine PDAF_en3dvar_update_lestkf(step, dim_p, dim_obs_p, dim_ens, 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_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)

Uses

Arguments

Type IntentOptional 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_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_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