Changes between Version 12 and Version 13 of OMI_debugging
- Timestamp:
- Mar 8, 2024, 10:28:26 AM (7 months ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
OMI_debugging
v12 v13 90 90 INTEGER :: use_global_obs=1 !< Whether to use (1) global full obs. 91 91 !< 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) 92 96 93 97 ! ---- The following variables are set in the routine PDAFomi_gather_obs --- … … 111 115 INTEGER, ALLOCATABLE :: id_obs_l(:) !< Indices of local observations in full obs. vector 112 116 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 113 119 REAL, ALLOCATABLE :: ivar_obs_l(:) !< Inverse variance of local observations 114 120 INTEGER :: locweight !< Specify localization function 115 REAL :: cradius !< localization cut-off radius116 REAL :: sradius !< support radius for localization function121 REAL, ALLOCATABLE :: cradius(:) !< Localization cut-off radius (single value or vector) 122 REAL, ALLOCATABLE :: sradius(:) !< support radius for localization function (single value or vector) 117 123 END TYPE obs_l 118 124 }}}