da_etkf.f90

1 module da_etkf
2 
3 !------------------------------------------------------------------------------
4 !  Purpose: Routines to run an ETKF within WRF-Var.
5 !
6 !  HISTORY: 11/21/2004 - Xuguang Wang's routines included in WRF-Var.Dale Barker
7 !------------------------------------------------------------------------------
8 
9    use da_control, only : stdout
10 
11    implicit none
12 
13 contains
14 
15 #include "da_innerprod.inc"
16 #include "da_matmulti.inc"
17 #include "da_matmultiover.inc"
18 #include "da_solve_etkf.inc"
19 
20 end module da_etkf
21