var/da/da_varbc/da_varbc.f90

   1 module da_varbc
   2
   3    !---------------------------------------------------------------------------
   4    ! Purpose: module for variational bias correction.
   5    !---------------------------------------------------------------------------
   6
   7 #if defined(RTTOV) || defined(CRTM)
   8    use module_dm, only : wrf_dm_sum_real, wrf_dm_sum_reals, wrf_dm_sum_integer
   9    use module_radiance, only : q2ppmv, satinfo
  10    use da_control, only : trace_use,missing_r, qc_varbc_bad, rtm_option, &
  11       stdout,rtm_option_rttov,rtm_option_crtm, filename_len, cv_size_domain, &
  12       cv_size_domain_jp, use_varbc, freeze_varbc, varbc_factor, varbc_nobsmin, &
  13       rootproc, varbc_nbgerr, ierr, comm, max_ext_its, varbc_scan
  14    use da_define_structures, only : iv_type, y_type, be_type, &
  15       varbc_info_type,varbc_type
  16    use da_radiance1, only : stats_rad_type
  17 #ifdef RTTOV
  18    use da_radiance1, only : da_predictor_rttov
  19 #endif
  20 #ifdef CRTM
  21    use da_radiance1, only : da_predictor_crtm
  22 #endif
  23    use da_reporting, only : da_error, message, da_warning, da_message
  24    use da_tools, only : da_eof_decomposition
  25    use da_tools_serial, only : da_free_unit, da_get_unit
  26    use da_tracing, only : da_trace_entry, da_trace_exit, da_trace, &
  27       da_trace_int_sort
  28
  29    implicit none
  30
  31 contains
  32
  33 #include "da_varbc_direct.inc"
  34 #include "da_varbc_tl.inc"
  35 #include "da_varbc_adj.inc"
  36 #include "da_varbc_pred.inc"
  37 #include "da_varbc_coldstart.inc"
  38 #include "da_varbc_precond.inc"
  39 #include "da_varbc_init.inc"
  40 #include "da_varbc_update.inc"
  41
  42 #endif
  43
  44 end module da_varbc