da_be_spectral.f90

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