<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_GEN_BE'><A href='../../html_code/gen_be/da_gen_be.f90.html#DA_GEN_BE' TARGET='top_target'><IMG SRC="../../gif/bar_purple.gif" border=0></A>
module da_gen_be 2,4
!----------------------------------------------------------------------------
! Purpose: Collection of routines required by gen_be BE stats calculation
! code.
!
! Update: Multivariate BE option (cv_options=6)
! Syed RH Rizvi (MMM/NESL/NCAR) Date: 02/01/2010
!
! Note: Please acknowledge author/institute in work that uses this code.
!------------------------------------------------------------------------
!----------------------------------------------------------------------------
use da_control
, only : stdout,vertical_ip, t0,es_beta,es_alpha, &
es_gamma,kappa,rd_over_rv,rd_over_rv1,t_kelvin, gravity, &
filename_len,vertical_ip_0, trace_use, trace_use_dull, cv_options, use_rf, do_normalize
use da_reporting, only : da_error, da_warning, da_message, message
use da_tools_serial, only : da_get_unit, da_free_unit, da_array_print
use da_lapack, only : dsyev
use da_wavelet, only: lf,namw,nb,nij,ws,wsd
implicit none
real, parameter :: base_pres = 100000.0 ! Hardwired - link to namelist later.
contains
! Stubs to avoid picking up vast ammounts of unnecessary stuff from wrfvar
<A NAME='DA_TRACE_ENTRY'><A href='../../html_code/gen_be/da_gen_be.f90.html#DA_TRACE_ENTRY' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_trace_entry(name, message, messages, maxnocalls) 850,4
implicit none
character (len=*), intent(in) :: name
character (len=*), optional, intent(in) :: message
character (len=*), optional, intent(in) :: messages(:)
integer, optional, intent(in) :: maxnocalls
end subroutine da_trace_entry
<A NAME='DA_TRACE_EXIT'><A href='../../html_code/gen_be/da_gen_be.f90.html#DA_TRACE_EXIT' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_trace_exit(name, message, messages, maxnocalls) 936,4
implicit none
character (len=*), intent(in) :: name
character (len=*), optional, intent(in) :: message
character (len=*), optional, intent(in) :: messages(:)
integer, optional, intent(in) :: maxnocalls
end subroutine da_trace_exit
#include "da_create_bins.inc"
#include "da_filter_regcoeffs.inc"
#include "da_get_field.inc"
#include "da_get_height.inc"
#include "da_get_trh.inc"
#include "da_print_be_stats_h_global.inc"
#include "da_print_be_stats_h_regional.inc"
#include "da_print_be_stats_p.inc"
#include "da_print_be_stats_v.inc"
#include "da_readwrite_be_stage1.inc"
#include "da_readwrite_be_stage2.inc"
#include "da_readwrite_be_stage3.inc"
#include "da_readwrite_be_stage4.inc"
#include "da_stage0_initialize.inc"
! Files from other modules:
#include "da_transform_vptovv.inc"
#include "da_eof_decomposition.inc"
#include "da_eof_decomposition_test.inc"
#include "da_perform_2drf.inc"
#include "da_recursive_filter_1d.inc"
end module da_gen_be
<A NAME='WRF_ABORT'><A href='../../html_code/gen_be/da_gen_be.f90.html#WRF_ABORT' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine wrf_abort 3
stop
end subroutine wrf_abort
<A NAME='WRF_DM_ON_MONITOR'><A href='../../html_code/gen_be/da_gen_be.f90.html#WRF_DM_ON_MONITOR' TARGET='top_target'><IMG SRC="../../gif/bar_green.gif" border=0></A>
LOGICAL FUNCTION wrf_dm_on_monitor()
IMPLICIT NONE
wrf_dm_on_monitor = .TRUE.
RETURN
END FUNCTION wrf_dm_on_monitor