| | 1 | = PDAFomi_store_obs_l_index = |
| | 2 | |
| | 3 | This page documents the routine `PDAFomi_set_dim_obs_l` of PDAF-OMI. |
| | 4 | |
| | 5 | This routine is used for the case that a user implements a user-provided alternative for the routine `PDAFomi_init_dim_obs_l`, which initializes the local observation information for PDAF-OMI in `thisobs_l` for a single local analysis domain. |
| | 6 | |
| | 7 | The routine can to be called in `init_dim_obs_l_OBSTYPE` in each observation module if a domain-localized filter (LESTKF/LETKF/LNETF/LSEIK/LKNETF)is used. |
| | 8 | |
| | 9 | || See the [wiki:OMI_search_local_observations page on user-provided initialization of local observations] for the full description of a user-provided routine to intialize local observations. || |
| | 10 | |
| | 11 | The interface is: |
| | 12 | {{{ |
| | 13 | SUBROUTINE PDAFomi_store_obs_l_index(thisobs_l, idx, id_obs_l, distance, & |
| | 14 | cradius_l, sradius_l) |
| | 15 | |
| | 16 | TYPE(obs_l), INTENT(inout) :: thisobs_l ! Data type with local observation |
| | 17 | INTEGER, INTENT(in) :: idx ! Element of local observation array to be filled |
| | 18 | INTEGER, INTENT(in) :: id_obs_l ! Index of local observation in full observation array |
| | 19 | REAL, INTENT(in) :: distance ! Distance between local analysis domain and observation |
| | 20 | REAL, INTENT(in) :: cradius_l ! cut-off radius for this local observation |
| | 21 | ! (directional radius in case of non-isotropic localization) |
| | 22 | REAL, INTENT(in) :: sradius_l ! support radius for this local observation |
| | 23 | ! (directional radius in case of non-isotropic localization) |
| | 24 | }}} |
| | 25 | |
| | 26 | '''Notes:''' |
| | 27 | * `idx` is usually the counte over the valid local observation of the observation type in the observation module |
| | 28 | * `cradius_l` and `sradius_l` are usually the same for all local obsevations of a single type if the localization is isotropic |
| | 29 | * While using this routine can be more convenient than doing the initialization of the variables in `thisobs_l` in the user code, in our tests the code ran faster when we did not use this routine, but did this initialization in the user code. |