<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_BE_SPECTRAL'><A href='../../html_code/spectral/da_be_spectral.f90.html#DA_BE_SPECTRAL' TARGET='top_target'><IMG SRC="../../gif/bar_purple.gif" border=0></A>
module da_be_spectral,4
use da_control
, only : da_zero_complex,ierr, trace_use, &
pi,gaussian_lats
use da_reporting, only : da_error,message
use da_tools_serial, only : da_free_unit, da_get_unit
use da_gen_be, only : da_trace_entry, da_trace_exit
!--------------------------------------------------------------------
! Contains all necessary routines to perform global spectral transform
! (based on Fourier and Legendre decompositions).
!--------------------------------------------------------------------
implicit none
contains
#include "da_asslegpol.inc"
#include "da_calc_power.inc"
#include "da_get_gausslats.inc"
#include "da_get_reglats.inc"
#include "da_initialize_h.inc"
#include "da_legtra_inv.inc"
#include "da_legtra.inc"
#include "da_setlegpol_test.inc"
#include "da_setlegpol.inc"
#include "da_vv_to_v_spectral.inc"
#include "da_legtra_inv_adj.inc"
#include "da_apply_power.inc"
end module da_be_spectral