Exclude observations for too high innovation
The routine is called during the analysis step of a global filter. It checks the size of the innovation and sets the observation error to a high value if the squared innovation exceeds a limit relative to the observation error variance.
Revision history: * 2024-02 - Lars Nerger - Initial code * Later revisions - see repository log
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(obs_f), | intent(inout) | :: | thisobs | |||
real, | intent(in) | :: | inno_f(:) | |||
real, | intent(in) | :: | obs_f_all(:) | |||
integer, | intent(in) | :: | obsid | |||
integer, | intent(inout) | :: | cnt_all |