<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_WAVELET'><A href='../../html_code/da_wavelet/da_wavelet.f90.html#DA_WAVELET' TARGET='top_target'><IMG SRC="../../gif/bar_purple.gif" border=0></A>
MODULE da_wavelet 4,1
!
! Purpose: wavelet routines by Aime' Fournier
!
USE da_control
, ONLY: ime,ims,ite,its,jme,jms,jts,kme,kms,trace_use_dull
USE module_domain_type, ONLY: domain, vp_type
IMPLICIT NONE
CHARACTER :: namw ! Wavelet name 'B', 'C', 'D' or 'V'.
INTEGER :: lf ! Wavelet filter length.
INTEGER :: nb ! Nu. wavelet bands.
INTEGER, ALLOCATABLE :: nij(:,:,:) ! Wavelet indexes.
REAL, ALLOCATABLE :: ws(:) ! Wavelet scratch work space.
REAL, ALLOCATABLE :: wsd(:,:) ! Wavelet-coefficient std. devs.
CONTAINS
#include "da_transform_through_wavelet.inc"
#include "da_transform_through_wavelet_adj.inc"
END MODULE da_wavelet