da_setup_structures.f90

1 module da_setup_structures
2 
3    !---------------------------------------------------------------------------
4    ! Purpose: Sets up various structures.
5    !---------------------------------------------------------------------------
6 
7    use module_domain, only : xb_type, xpose_type, ep_type, x_type, domain
8 
9    use da_define_structures, only : xbx_type,be_subtype, be_type, y_type, &
10       ob_type,da_allocate_background_errors,da_allocate_observations
11    use da_control, only : trace_use,vert_evalue,stdout,rootproc, &
12       analysis_date,coarse_ix,coarse_ds,map_projection,coarse_jy, c2,dsm,phic, &
13       pole, cone_factor, start_x,ps0,ptop,psi1,start_y, tlp,tis0,truelat2_3dv, &
14       truelat1_3dv,xlonc,ts0,num_fft_factors,pi,print_detail_spectral, global, &
15       da_find_fft_factors,da_find_fft_trig_funcs, use_radar_rf, &
16       max_fgat_time, num_fgat_time, max_airep_input, max_bogus_input, &
17       max_buoy_input, max_gpsref_input, max_gpspw_input, max_geoamv_input, &
18       max_airsret_input, max_polaramv_input, max_radar_input, &
19       max_profiler_input,max_ssmi_ret_input, max_sound_input, max_ships_input, &
20       max_satem_input,max_pilot_input, max_metar_input, max_ssmt1_input, &
21       max_synop_input,max_ssmt2_input, max_ssmi_tb_input,dt_cloud_model, &
22       use_ssmiretrievalobs,use_radarobs,use_ssmitbobs,use_qscatobs, num_procs, &
23       num_pseudo, missing, ob_format, ob_format_bufr,ob_format_ascii, &
24       use_airepobs, testing_dm_exact, use_amsuaobs, use_amsubobs, &
25       use_airsobs, use_bogusobs, sfc_assi_options, use_eos_amsuaobs, &
26       use_filtered_rad, use_eos_radobs, use_gpsrefobs, use_hirs2obs, &
27       use_hsbobs,use_hirs3obs, use_gpspwobs, use_metarobs, use_msuobs, &
28       use_kma1dvar,use_pilotobs, use_polaramvobs, use_rad, use_soundobs, &
29       use_ssmt1obs,use_ssmt2obs, use_shipsobs, use_satemobs, use_synopobs, &
30       use_radar_rv,use_profilerobs, use_obsgts, use_geoamvobs, use_buoyobs, &
31       alphacv_method,its,ite,jts,jte,cv_size_domain_jb, &
32       cv_size_domain_je, cv_size_domain,ids,ide,jds,jde,kde,ensdim_alpha, &
33       lat_stats_option,alpha_std_dev,alpha_corr_scale,len_scaling1, &
34       len_scaling2,len_scaling3,len_scaling4,len_scaling5,max_vert_var1, &
35       max_vert_var2,max_vert_var3,max_vert_var4,print_detail_be, &
36       test_statistics, var_scaling1,var_scaling2,var_scaling3,var_scaling4, &
37       var_scaling5,vert_corr,max_vert_var5,power_truncation,alpha_truncation, &
38       print_detail_regression,gas_constant,da_array_print , use_airsretobs, &
39       filename_len, use_ssmisobs, gravity, t_triple
40    use da_obs, only : da_store_obs_grid_info,da_fill_obs_structures, &
41       da_store_obs_grid_info_new
42    use da_obs_io, only : da_scan_bufr_obs,da_read_bufr_obs,da_read_radar, &
43       da_scan_radar,da_scan_obs,da_read_obs
44    use da_par_util, only : da_local_to_global
45    use da_radiance, only : da_setup_bufrtovs_structures
46    use da_reporting, only : da_error,message, da_warning, da_message
47    use da_recursive_filter, only : da_calculate_rf_factors
48    use da_spectral, only : da_initialize_h,da_calc_power_spectrum
49    use da_ssmi, only : da_read_ssmi,da_scan_ssmi
50    use da_tools1, only : da_get_unit, da_free_unit
51    use da_tracing, only : da_trace_entry, da_trace_exit
52    use da_vtox_transforms, only : da_check_eof_decomposition
53 
54    implicit none
55 
56    contains
57 
58 #include "da_get_vertical_truncation.inc"
59 #include "da_interpolate_regcoeff.inc"
60 #include "da_rescale_background_errors.inc"
61 #include "da_setup_background_errors.inc"
62 #include "da_setup_be_global.inc"
63 #include "da_setup_be_regional.inc"
64 #include "da_setup_cv.inc"
65 #include "da_chgvres.inc"
66 #include "da_setup_flow_predictors.inc"
67 #include "da_setup_obs_structures.inc"
68 #include "da_setup_obs_structures_ascii.inc"
69 #include "da_setup_obs_structures_bufr.inc"
70 #include "da_setup_obs_interp_wts.inc"
71 #include "da_setup_runconstants.inc"
72 #include "da_cloud_model.inc"
73 #include "da_lcl.inc"
74 #include "da_cumulus.inc"
75 #include "da_qfrmrh.inc"
76 #include "da_write_increments.inc"
77 #include "da_write_kma_increments.inc"
78 #include "da_get_bins_info.inc"
79 #include "da_truncate_spectra.inc"
80 
81 end module da_setup_structures