da_obs_io.f90

1 module da_obs_io
2 
3    use module_domain, only : xpose_type, xb_type
4 
5    use da_control, only : missing_r, fmt_each, fmt_info, trace_use, &
6       fmt_srfc, filtered_obs_unit, num_procs,missing, ierr,comm, rand_unit, &
7       obs_qc_pointer, rootproc, omb_unit,omb_add_noise,use_airepobs, &
8       use_airepobs,use_bogusobs,use_gpspwobs,use_gpsrefobs,use_geoamvobs, &
9       use_metarobs,use_profilerobs,use_pilotobs,use_buoyobs,use_shipsobs, &
10       use_synopobs,use_soundobs,use_qscatobs,testing_wrfvar, report_start, &
11       report_end, global, print_detail_obs, stdout, t_kelvin, stderr, &
12       max_ob_levels, missing_data, max_bogus_input, myproc,convert_uv2fd, &
13       fails_error_max,standard_atmosphere,zero_t_td,print_detail_f_obs, &
14       max_radar, print_detail_radar,use_satemobs,use_polaramvobs,use_ssmt1obs, &
15       use_ssmt2obs, use_airsretobs,convert_fd2uv,anal_type_qcobs,gravity, &
16       filename_len
17    use da_define_structures, only : ob_type, multi_level_type, &
18       radar_multi_level_type, y_type, field_type, each_level_type, &
19       radar_each_level_type
20    use da_grid_definitions, only : da_earth_2_model_wind,da_ffdduv
21    use da_obs, only : da_count_filtered_obs,da_check_missing,da_obs_proc_station
22    use da_par_util1, only : da_proc_sum_int
23    use da_physics, only : da_tp_to_qs
24    use da_reporting, only : da_warning, message, da_error, da_message
25    use da_tools, only : da_ll_to_xy
26    use da_tools1, only : da_free_unit, da_get_unit
27    use da_tracing, only : da_trace_entry, da_trace_exit
28 
29    implicit none
30 
31 contains
32 
33 #include "da_read_obs.inc"
34 #include "da_scan_obs.inc"
35 #include "da_read_radar.inc"
36 #include "da_scan_radar.inc"
37 #include "da_read_errfac.inc"
38 #include "da_use_obs_errfac.inc"
39 #include "da_write_obs.inc"
40 #include "da_write_filtered_obs.inc"
41 #include "da_write_y.inc"
42 #include "da_read_bufr_obs.inc"
43 #include "da_scan_bufr_obs.inc"
44 #include "da_final_write_obs.inc"
45 #include "da_final_write_y.inc"
46 #include "da_read_y_unit.inc"
47 #include "da_read_rand_unit.inc"
48 #include "da_read_omb_tmp.inc"
49 #include "da_write_noise_to_ob.inc"
50 #include "da_final_write_filtered_obs.inc"
51 
52 end module da_obs_io