<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_TOOLS_SERIAL'><A href='../../html_code/tools/da_tools_serial.f90.html#DA_TOOLS_SERIAL' TARGET='top_target'><IMG SRC="../../gif/bar_purple.gif" border=0></A>
module da_tools_serial 19,2
!---------------------------------------------------------------------------
! Purpose: Contains serial tools, useable by gen_be which doesn't like parallel
!---------------------------------------------------------------------------
use da_control
, only : unit_used, unit_end, unit_start, stdout, num_fft_factors, pi
use da_reporting, only : da_error
implicit none
contains
#include "da_get_unit.inc"
#include "da_free_unit.inc"
#include "da_change_date.inc"
#include "da_array_print.inc"
#include "da_advance_cymdh.inc"
#include "da_advance_time.inc"
#include "da_find_fft_factors.inc"
#include "da_find_fft_trig_funcs.inc"
end module da_tools_serial