2#if (defined FOUR_DVAR || defined VERIFICATION) && \
3 defined observations && \
4 defined distribute && defined solve3d
31 integer,
intent(in) :: ng, tile, model
35 logical :: r_bound, u_bound, v_bound
37 integer :: Mstr, Mend, iobs, itrc
39 real(r8) :: IniVal = 0.0_r8
41# include "set_bounds.h"
53# ifdef WEAK_CONSTRAINT
65 r_bound=((
rxmin(ng) .le.
xobs(iobs)).and. &
69 u_bound=((
uxmin(ng) .le.
xobs(iobs)).and. &
73 v_bound=((
vxmin(ng) .le.
xobs(iobs)).and. &
77 IF (.not.(r_bound.or.u_bound.or.v_bound))
THEN
integer, dimension(:), allocatable nobs
real(r8), dimension(:), allocatable zobs
real(r8), dimension(:), allocatable xobs
real(r8), dimension(:), allocatable yobs
integer, dimension(:), allocatable nstrobs
integer, dimension(:), allocatable nendobs
real(r8), dimension(:), allocatable rymin
real(r8), dimension(:), allocatable vymin
real(r8), dimension(:), allocatable rymax
real(r8), dimension(:), allocatable uymin
real(r8), dimension(:), allocatable vymax
real(r8), dimension(:), allocatable uxmin
real(r8), dimension(:), allocatable uxmax
real(r8), dimension(:), allocatable rxmax
real(r8), dimension(:), allocatable uymax
real(r8), dimension(:), allocatable vxmin
real(r8), dimension(:), allocatable vxmax
real(r8), dimension(:), allocatable rxmin
subroutine obs_depth(ng, tile, model)