Exclude observations for too high innovation
The routine is called during the analysis step on each local analysis domain. 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: * 2022-12 - Lars Nerger - Initial code * Later revisions - see repository log
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(obs_l), | intent(inout) | :: | thisobs_l | |||
| type(obs_f), | intent(inout) | :: | thisobs | |||
| real, | intent(in) | :: | inno_l(:) | |||
| real, | intent(in) | :: | obs_l_all(:) | |||
| integer, | intent(in) | :: | obsid | |||
| integer, | intent(inout) | :: | cnt_all | |||
| integer, | intent(in) | :: | verbose |