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 #ifndef crayx1
10    use lapack, only : dsyev
11 #endif
12 
13    use da_control, only : trace_use, stdout
14    use da_reporting, only : da_error, message
15    use da_tracing, only : da_trace_entry, da_trace_exit
16 
17    implicit none
18 
19 contains
20 
21 #include "da_innerprod.inc"
22 #include "da_matmulti.inc"
23 #include "da_matmultiover.inc"
24 #include "da_solve_etkf.inc"
25 
26 end module da_etkf
27