da_recursive_filter.f90

1 module da_recursive_filter
2 
3    !---------------------------------------------------------------------------
4    ! Purpose: Jim Pursers recursive filter routines.
5    !---------------------------------------------------------------------------
6 
7    use module_domain, only : domain
8   
9    use da_control, only : ims,ime,jms,jme,kms,kme,jds,jde, &
10       rf_passes, its,ite,jts,jte,vert_corr, trace_use, vert_corr_1, trace_use_dull
11    use da_par_util, only : da_transpose_z2y, da_transpose_x2y, &
12       da_transpose_y2z, da_transpose_y2x, da_transpose_x2z, &
13       da_transpose_z2x
14    use da_tracing, only : da_trace_entry, da_trace_exit
15 
16    implicit none
17 
18    contains
19 
20 #include "da_perform_2drf.inc"
21 #include "da_calculate_rf_factors.inc"
22 #include "da_recursive_filter_1d.inc"
23 #include "da_recursive_filter_1d_adj.inc"
24 #include "da_transform_through_rf.inc"
25 #include "da_transform_through_rf_adj.inc"
26 
27 end module da_recursive_filter
28