var/da/da_statistics/da_statistics.f90

   1 module da_statistics
   2
   3    !---------------------------------------------------------------------------
   4    ! Purpose: Contains routines used to calculates statistical quantities.
   5    !---------------------------------------------------------------------------
   6
   7    use module_domain, only : domain
   8    use da_control, only : obs_qc_pointer,stdout, missing_r, &
   9       myproc,rootproc, mjy, mix, mkz, jts,jte,its,ite,kts,kte, trace_use_dull, trace_use,&
  10       crtm_cloud,use_radar_rf,pptop,ppbot,num_ob_indexes,num_ob_vars,npres_print,&
  11 #if (WRF_CHEM == 1)
  12       chem_cv_options, &
  13 #endif
  14       obs_names, ob_vars, filename_len, cloud_cv_options
  15    use da_define_structures, only : iv_type, maxmin_type, x_type, maxmin_field_type
  16    use da_par_util1, only : da_proc_sum_real, da_proc_sum_int, da_proc_sum_ints
  17    use da_par_util, only : da_proc_maxmin_combine
  18    use da_tracing, only : da_trace_entry, da_trace_exit
  19    use da_tools_serial, only : da_free_unit, da_get_unit
  20    use da_reporting, only : da_error
  21
  22    implicit none
  23
  24    contains
  25
  26 #include "da_analysis_stats.inc"
  27 #include "da_correlation_coeff1d.inc"
  28 #include "da_correlation_coeff2d.inc"
  29 #include "da_data_distribution.inc"
  30 #include "da_stats_calculate.inc"
  31 #include "da_print_qcstat.inc"
  32
  33 end module da_statistics
  34