module da_varbc 3,11
!---------------------------------------------------------------------------
! Purpose: module for variational bias correction.
!---------------------------------------------------------------------------
#if defined(RTTOV) || defined(CRTM)
use module_dm
, only : wrf_dm_sum_real, wrf_dm_sum_reals, wrf_dm_sum_integer
use module_radiance
, only : q2ppmv, satinfo
use da_control
, only : trace_use,missing_r, qc_varbc_bad, rtm_option, &
stdout,rtm_option_rttov,rtm_option_crtm, filename_len, cv_size_domain, &
cv_size_domain_jp, use_varbc, freeze_varbc, varbc_factor, varbc_nobsmin, &
rootproc, varbc_nbgerr, ierr, comm, max_ext_its
use da_define_structures
, only : iv_type, y_type, be_type, &
varbc_info_type,varbc_type
use da_radiance1
, only : stats_rad_type
#ifdef RTTOV
use da_radiance1
, only : da_predictor_rttov
#endif
#ifdef CRTM
use da_radiance1
, only : da_predictor_crtm
#endif
use da_reporting
, only : da_error, message, da_warning, da_message
use da_tools
, only : da_eof_decomposition
use da_tools_serial
, only : da_free_unit, da_get_unit
use da_tracing
, only : da_trace_entry, da_trace_exit, da_trace, &
da_trace_int_sort
implicit none
contains
#include "da_varbc_direct.inc"
#include "da_varbc_tl.inc"
#include "da_varbc_adj.inc"
#include "da_varbc_pred.inc"
#include "da_varbc_coldstart.inc"
#include "da_varbc_precond.inc"
#include "da_varbc_init.inc"
#include "da_varbc_update.inc"
#endif
end module da_varbc