<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_GET_3D_SUM'><A href='../../html_code/tools/da_get_3d_sum.inc.html#DA_GET_3D_SUM' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_get_3d_sum(var, name),2
!-----------------------------------------------------------------------
! Purpose: TBD
!-----------------------------------------------------------------------
implicit none
real, intent(in) :: var(ims:ime, jms:jme, kms:kme)
character(len=*), intent(in) :: name
real :: partial, total
if (trace_use) call da_trace_entry
("da_get_3d_sum")
partial = sum(var(its:ite,jts:jte,kts:kte)*var(its:ite,jts:jte,kts:kte))
total = wrf_dm_sum_real (partial)
write(unit=stdout, fmt='(3a, e24.14)') 'Square sum of <', trim(name), '>=', total
if (trace_use) call da_trace_exit("da_get_3d_sum")
end subroutine da_get_3d_sum