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