PDAF_hyb3dvar_costf_cvt Subroutine

subroutine PDAF_hyb3dvar_costf_cvt(step, iter, dim_p, dim_ens, dim_cv_p, dim_cv_par_p, dim_cv_ens_p, dim_obs_p, ens_p, obs_p, dy_p, v_par_p, v_ens_p, v_p, J_tot, gradJ, U_prodRinvA, U_cvt, U_cvt_adj, U_cvt_ens, U_cvt_adj_ens, U_obs_op_lin, U_obs_op_adj, opt_parallel, beta)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: step
integer, intent(in) :: iter
integer, intent(in) :: dim_p
integer, intent(in) :: dim_ens
integer, intent(in) :: dim_cv_p
integer, intent(in) :: dim_cv_par_p
integer, intent(in) :: dim_cv_ens_p
integer, intent(in) :: dim_obs_p
real, intent(in) :: ens_p(dim_p,dim_ens)
real, intent(in) :: obs_p(dim_obs_p)
real, intent(in) :: dy_p(dim_obs_p)
real, intent(inout) :: v_par_p(dim_cv_par_p)
real, intent(inout) :: v_ens_p(dim_cv_ens_p)
real, intent(in) :: v_p(dim_cv_p)
real, intent(out) :: J_tot
real, intent(out) :: gradJ(dim_cv_p)
real :: U_prodRinvA
real :: U_cvt
real :: U_cvt_adj
real :: U_cvt_ens
real :: U_cvt_adj_ens
real :: U_obs_op_lin
real :: U_obs_op_adj
integer, intent(in) :: opt_parallel
real, intent(in) :: beta