var/da/da_rain/da_rain.f90

   1 module da_rain
   2
   3    use module_domain, only : domain
   4
   5 #ifdef DM_PARALLEL
   6    use module_dm, only : local_communicator, mytask, ntasks, ntasks_x, &
   7       ntasks_y
   8    use module_comm_dm, only : halo_em_rain_sub
   9 #endif
  10
  11    use da_control, only : obs_qc_pointer,missing_r, &
  12       check_max_iv_print, check_max_iv_unit, v_interp_p, v_interp_h, &
  13       check_max_iv, missing, rootproc, max_error_rain, &
  14       rain, trace_use,fails_error_max, &
  15       max_stheight_diff,missing_data,anal_type_verify, &
  16       anal_type_verify,max_ext_its,qcstat_conv_unit,ob_vars, &
  17       ids,ide,jds,jde,kds,kde, ims,ime,jms,jme,kms,kme, &
  18       ips,ipe,jps,jpe,kps,kpe,num_fgat_time, write_rej_obs_conv
  19
  20    use da_define_structures, only : maxmin_type, iv_type, y_type, jo_type, &
  21       bad_data_type, x_type, number_type, bad_data_type
  22    use da_interpolation, only : da_to_zk, &
  23       da_interp_lin_3d,da_interp_lin_3d_adj, &
  24       da_interp_lin_2d, da_interp_lin_2d_adj, da_interp_lin_2d_partial
  25    use da_par_util1, only : da_proc_sum_int
  26    use da_par_util, only : da_proc_stats_combine
  27    use da_statistics, only : da_stats_calculate
  28    use da_tools, only : da_max_error_qc, da_residual, da_obs_sfc_correction, &
  29        da_convert_zk,map_info,da_llxy_wrf, da_llxy_default
  30    use da_tracing, only : da_trace_entry, da_trace_exit
  31
  32    ! The "stats_rain_type" is ONLY used locally in da_rain:
  33
  34    type residual_rain1_type
  35       real          :: rain
  36    end type residual_rain1_type
  37
  38    type maxmin_rain_stats_type
  39       type (maxmin_type)         :: rain
  40    end type maxmin_rain_stats_type
  41
  42    type stats_rain_type
  43       type (maxmin_rain_stats_type)  :: maximum, minimum
  44       type (residual_rain1_type)     :: average, rms_err
  45    end type stats_rain_type
  46
  47 contains
  48
  49 #include "da_ao_stats_rain.inc"
  50 #include "da_jo_and_grady_rain.inc"
  51 #include "da_residual_rain.inc"
  52 #include "da_oi_stats_rain.inc"
  53 #include "da_print_stats_rain.inc"
  54 #include "da_transform_xtoy_rain.inc"
  55 #include "da_transform_xtoy_rain_adj.inc"
  56 #include "da_check_max_iv_rain.inc"
  57 #include "da_get_hr_rain.inc"
  58 #include "da_get_innov_vector_rain.inc"
  59 #include "da_calculate_grady_rain.inc"
  60
  61
  62 end module da_rain
  63