<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_ETKF'><A href='../../html_code/etkf/da_etkf.f90.html#DA_ETKF' TARGET='top_target'><IMG SRC="../../gif/bar_purple.gif" border=0></A>
module da_etkf,2
!------------------------------------------------------------------------------
! Purpose: Routines to run an ETKF within WRF-Var.
!
! HISTORY: 11/21/2004 - Xuguang Wang's routines included in WRF-Var.Dale Barker
!------------------------------------------------------------------------------
use da_control
, only : stdout, trace_use
use da_gen_be, only : da_trace_entry, da_trace_exit
use da_lapack, only : dsyev
implicit none
contains
#include "da_innerprod.inc"
#include "da_matmulti.inc"
#include "da_matmultiover.inc"
#include "da_solve_etkf.inc"
end module da_etkf