var/da/da_ffts/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