Changes between Version 12 and Version 13 of OMI_debugging


Ignore:
Timestamp:
Mar 8, 2024, 10:28:26 AM (7 months ago)
Author:
lnerger
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • OMI_debugging

    v12 v13  
    9090     INTEGER :: use_global_obs=1          !< Whether to use (1) global full obs.
    9191                                          !< or (0) obs. restricted to those relevant for a process domain
     92     REAL :: inno_omit=0.0                !< Omit obs. if squared innovation larger this factor times
     93                                          !<     observation variance (only active for >0)
     94     REAL :: inno_omit_ivar=1.0e-12       !< Value of inverse variance to omit observation
     95                                          !<     (should be than actual observation error variance)
    9296
    9397     ! ----  The following variables are set in the routine PDAFomi_gather_obs ---
     
    111115     INTEGER, ALLOCATABLE :: id_obs_l(:)  !< Indices of local observations in full obs. vector
    112116     REAL, ALLOCATABLE :: distance_l(:)   !< Distances of local observations
     117     REAL, ALLOCATABLE :: cradius_l(:)    !< directional cut-off radii of local observations
     118     REAL, ALLOCATABLE :: sradius_l(:)    !< directional support radii of local observations
    113119     REAL, ALLOCATABLE :: ivar_obs_l(:)   !< Inverse variance of local observations
    114120     INTEGER :: locweight                 !< Specify localization function
    115      REAL :: cradius                      !< localization cut-off radius
    116      REAL :: sradius                      !< support radius for localization function
     121     REAL, ALLOCATABLE :: cradius(:)      !< Localization cut-off radius (single value or vector)
     122     REAL, ALLOCATABLE :: sradius(:)      !< support radius for localization function (single value or vector)
    117123  END TYPE obs_l
    118124}}}