da_tools_serial.f90

1 module da_tools_serial
2    
3    !---------------------------------------------------------------------------
4    ! Purpose: Contains serial tools, useable by gen_be which doesn't like parallel
5    !---------------------------------------------------------------------------
6       
7    use da_control, only : unit_used, unit_end, unit_start, stdout, num_fft_factors, pi
8    use da_reporting, only : da_error
9 
10    implicit none
11 
12 contains
13 
14 #include "da_get_unit.inc"
15 #include "da_free_unit.inc"
16 #include "da_change_date.inc"
17 #include "da_array_print.inc"
18 #include "da_advance_cymdh.inc"
19 #include "da_find_fft_factors.inc"
20 #include "da_find_fft_trig_funcs.inc"
21 
22 end module da_tools_serial
23