var/da/da_wavelet/da_wavelet.f90

   1 MODULE da_wavelet
   2 !
   3 ! Purpose: wavelet routines by Aime' Fournier
   4 !
   5  USE da_control,    ONLY: ime,ims,ite,its,jme,jms,jts,kme,kms,trace_use_dull
   6  USE module_domain_type, ONLY: domain, vp_type
   7  IMPLICIT NONE
   8  CHARACTER            :: namw           ! Wavelet name 'B', 'C', 'D' or 'V'.
   9  INTEGER              :: lf             ! Wavelet filter length.
  10  INTEGER              :: nb             ! Nu. wavelet bands.
  11  INTEGER, ALLOCATABLE :: nij(:,:,:)     ! Wavelet indexes.
  12  REAL, ALLOCATABLE    :: ws(:)          ! Wavelet scratch work space.
  13  REAL, ALLOCATABLE    :: wsd(:,:)       ! Wavelet-coefficient std. devs.
  14 CONTAINS
  15 #include "da_transform_through_wavelet.inc"
  16 #include "da_transform_through_wavelet_adj.inc"
  17 END MODULE da_wavelet