da_ffts.f90

1 module da_ffts
2 
3    !---------------------------------------------------------------------------
4    ! Purpose: Routines to perform Fourier transforms.
5    !---------------------------------------------------------------------------
6 
7    use module_domain, only : xpose_type
8    use da_control, only : ims,ime,jms,jme,kms,kme,its,ite,jts,jte,kts,kte, &
9       Inverse_FFT,  Forward_FFT, ide,jde, stdout
10    use da_define_structures, only : xbx_type
11    use da_par_util, only : da_transpose_x2z, da_transpose_y2x, &
12       da_transpose_y2x_v2, da_transpose_z2x, da_transpose_x2y, &
13       da_transpose_x2y_v2
14    use module_dm, only : wrf_dm_sum_reals
15    use module_ffts, only : fft661, fft551
16 
17    implicit none
18 
19    contains
20 
21 #include "da_solve_poissoneqn_fct.inc"
22 #include "da_solve_poissoneqn_fct_adj.inc"
23 #include "da_solve_poissoneqn_fst.inc"
24 #include "da_solve_poissoneqn_fst_adj.inc"
25 
26 end module da_ffts