Utility routines for analysis step
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | obsstats(4) |
Print statistics on local analysis domains
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | n_domains_p |
Initialize local observation statistics
Update local observation statistics
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | dim_obs_l |
Print observation statistics
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | screen | |||
| integer, | intent(out), | optional | :: | n_domains_with_obs |
Compute innovation and call PDAFomi_omit obs
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | dim_p | |||
| integer, | intent(in) | :: | dim_obs_p | |||
| integer, | intent(in) | :: | dim_ens | |||
| real, | intent(inout) | :: | state_p(dim_p) | |||
| real, | intent(in) | :: | ens_p(dim_p,dim_ens) | |||
| real, | intent(inout) | :: | obs_p(dim_obs_p) | |||
| real | :: | U_init_obs | ||||
| real | :: | U_obs_op | ||||
| integer, | intent(in) | :: | compute_mean | |||
| integer, | intent(in) | :: | screen |