<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_MAXMIN_IN_FIELD'><A href='../../html_code/statistics/da_maxmin_in_field.inc.html#DA_MAXMIN_IN_FIELD' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_maxmin_in_field(field, max, min) 11,2
!-----------------------------------------------------------------------
! Purpose: TBD
!-----------------------------------------------------------------------
implicit none
real, intent(in) :: field(its:ite,jts:jte,kts:kte)
type(maxmin_field_type), intent(out) :: max(kts:kte)
type(maxmin_field_type), intent(out) :: min(kts:kte)
if (trace_use_dull) call da_trace_entry
("da_maxmin_in_field")
do k = kts, kte
max(k)%value = -1.0e20
min(k)%value = 1.0e20
do j = jts, jte
do i = its, ite
if (field(i,j,k) > max(k)%value) then
max(k)%value = field(i,j,k)
max(k)%i = i
max(k)%j = j
end if
if (field(i,j,k) < min(k)%value) then
min(k)%value = field(i,j,k)
min(k)%i = i
min(k)%j = j
end if
end do
end do
end do
if (trace_use_dull) call da_trace_exit("da_maxmin_in_field")
end subroutine da_maxmin_in_field