Changes between Version 12 and Version 13 of OMI_debugging

Timestamp:

Mar 8, 2024, 10:28:26 AM (9 months ago)

Author:

lnerger

Comment:

--

OMI_debugging

@@ -90 +90 @@
      INTEGER :: use_global_obs=1          !< Whether to use (1) global full obs. 
                                           !< or (0) obs. restricted to those relevant for a process domain
+     REAL :: inno_omit=0.0                !< Omit obs. if squared innovation larger this factor times
+                                          !<     observation variance (only active for >0)
+     REAL :: inno_omit_ivar=1.0e-12       !< Value of inverse variance to omit observation
+                                          !<     (should be than actual observation error variance)
 
      ! ----  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 
      REAL, ALLOCATABLE :: distance_l(:)   !< Distances of local observations
+     REAL, ALLOCATABLE :: cradius_l(:)    !< directional cut-off radii of local observations
+     REAL, ALLOCATABLE :: sradius_l(:)    !< directional support radii of local observations
      REAL, ALLOCATABLE :: ivar_obs_l(:)   !< Inverse variance of local observations
      INTEGER :: locweight                 !< Specify localization function
-     REAL :: cradius                      !< localization cut-off radius
-     REAL :: sradius                      !< support radius for localization function
+     REAL, ALLOCATABLE :: cradius(:)      !< Localization cut-off radius (single value or vector)
+     REAL, ALLOCATABLE :: sradius(:)      !< support radius for localization function (single value or vector)
   END TYPE obs_l
 }}}