Set dimension of local obs. vector and local obs. arrays
This routine sets the number of local observations for the current observation type for the local analysis domain with coordinates COORD_l and localization cut-off radius CRADIUS. Further the routine initializes arrays for the index of a local observation in the full observation vector and its corresponding distance. The operations are performed by calling the routine PDAFomi_check_dist2_loop once for counting and a second time for initializing the arrays.
Revision history: * 2019-06 - Lars Nerger - Initial code from restructuring observation routines * Later revisions - see repository log
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(obs_l), | intent(inout), | TARGET | :: | thisobs_l | ||
| type(obs_f), | intent(inout) | :: | thisobs | |||
| real, | intent(in) | :: | coords_l(:) | |||
| integer, | intent(in) | :: | locweight | |||
| real, | intent(in) | :: | cradius | |||
| real, | intent(in) | :: | sradius | |||
| integer, | intent(inout) | :: | cnt_obs_l_all |