var/da/da_tools/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_advance_time.inc"
  20 #include "da_find_fft_factors.inc"
  21 #include "da_find_fft_trig_funcs.inc"
  22
  23 end module da_tools_serial
  24