da_ffts.f90

1 module da_ffts
2 
3    !---------------------------------------------------------------------------
4    ! Purpose: Routines to perform Fourier transforms.
5    !---------------------------------------------------------------------------
6 
7    use module_domain, only :domain
8    use da_control, only : ims,ime,jms,jme,kms,kme,its,ite,jts,jte,kts,kte, &
9       Inverse_FFT,  Forward_FFT, ids,jds, trace_use, &
10       ide,jde, stdout
11    use da_define_structures, only : xbx_type
12    use da_par_util, only : da_transpose_x2z, da_transpose_y2x, &
13       da_transpose_y2x_v2, da_transpose_z2x, da_transpose_x2y, &
14       da_transpose_x2y_v2
15    use da_tracing, only : da_trace_entry, da_trace_exit
16    use da_wrf_interfaces, only : wrf_debug
17    use module_dm, only : wrf_dm_sum_reals
18 #ifdef DM_PARALLEL
19    use module_dm, only : local_communicator, &
20       ntasks_x, ntasks_y, data_order_xyz, mytask, ntasks
21    use da_control, only : ids,ide,ips,ipe,jds,jde,jps,jpe,kds,kde,kps,kpe
22    use module_comm_dm, only : halo_bal_eqn_adj_sub
23 #endif
24 
25    use module_ffts, only : fft661, fft551
26 
27    implicit none
28 
29    contains
30 
31 #include "da_solve_poissoneqn_fct.inc"
32 #include "da_solve_poissoneqn_fct_adj.inc"
33 #include "da_solve_poissoneqn_fst.inc"
34 #include "da_solve_poissoneqn_fst_adj.inc"
35 
36 end module da_ffts