var/da/da_spectral/da_be_spectral.f90

   1 module da_be_spectral
   2
   3    use da_control, only : da_zero_complex,ierr, trace_use, &
   4       pi,gaussian_lats
   5    use da_reporting, only : da_error,message
   6    use da_tools_serial, only : da_free_unit, da_get_unit
   7    use da_gen_be, only : da_trace_entry, da_trace_exit
   8
   9    !--------------------------------------------------------------------
  10    ! Contains all necessary routines to perform global spectral transform
  11    !  (based on Fourier and Legendre decompositions).
  12    !--------------------------------------------------------------------
  13
  14    implicit none
  15
  16 contains
  17
  18 #include "da_asslegpol.inc"
  19 #include "da_calc_power.inc"
  20 #include "da_get_gausslats.inc"
  21 #include "da_get_reglats.inc"
  22 #include "da_initialize_h.inc"
  23 #include "da_legtra_inv.inc"
  24 #include "da_legtra.inc"
  25 #include "da_setlegpol_test.inc"
  26 #include "da_setlegpol.inc"
  27 #include "da_vv_to_v_spectral.inc"
  28 #include "da_legtra_inv_adj.inc"
  29 #include "da_apply_power.inc"
  30
  31 end module da_be_spectral
  32