OOPS
|
Functions/Subroutines | |
subroutine | letkf_core (nobsl, hxens, hxens_orig, dep, wts_ensmean, wts_ensperts, rdiaginv_loc, nanals, neigv, getkf_inflation, denkf, getkf) |
Variables | |
integer, parameter | r_double =c_double |
integer, parameter | r_single =c_float |
integer, parameter | num_bytes_for_r_single =4 |
integer, parameter | i_kind =c_int |
integer, parameter | r_kind =r_single |
subroutine letkf::letkf_core | ( | integer(i_kind), intent(in) | nobsl, |
real(r_kind), dimension(nanals,nobsl), intent(inout) | hxens, | ||
real(r_single), dimension(nanals/neigv,nobsl), intent(in) | hxens_orig, | ||
real(r_single), dimension(nobsl), intent(in) | dep, | ||
real(r_single), dimension(nanals), intent(out) | wts_ensmean, | ||
real(r_single), dimension(nanals,nanals/neigv), intent(out) | wts_ensperts, | ||
real(r_kind), dimension(nobsl), intent(in) | rdiaginv_loc, | ||
integer(i_kind), intent(in) | nanals, | ||
integer(i_kind), intent(in) | neigv, | ||
logical, intent(in) | getkf_inflation, | ||
logical, intent(in) | denkf, | ||
logical, intent(in) | getkf | ||
) |
integer, parameter letkf::i_kind =c_int |
Definition at line 28 of file gletkf_mod.f90.
integer, parameter letkf::num_bytes_for_r_single =4 |
Definition at line 27 of file gletkf_mod.f90.
integer, parameter letkf::r_double =c_double |
Definition at line 27 of file gletkf_mod.f90.
integer, parameter letkf::r_kind =r_single |
Definition at line 28 of file gletkf_mod.f90.
integer, parameter letkf::r_single =c_float |
Definition at line 27 of file gletkf_mod.f90.