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, ep_type, domain
8 
9    use da_define_structures, only : xbx_type,be_subtype, be_type, y_type, &
10       iv_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,base_pres,ptop,psi1,start_y, base_lapse,base_temp,truelat2_3dv, &
14       truelat1_3dv,xlonc,t0,num_fft_factors,pi,print_detail_spectral, global, &
15       use_radar_rf, num_ob_indexes,kts, kte, &
16       max_fgat_time, num_fgat_time, dt_cloud_model, &
17       use_ssmiretrievalobs,use_radarobs,use_ssmitbobs,use_qscatobs, num_procs, &
18       num_pseudo, missing, ob_format, ob_format_bufr,ob_format_ascii, &
19       use_airepobs, test_dm_exact, use_amsuaobs, use_amsubobs, &
20       use_airsobs, use_bogusobs, sfc_assi_options, use_eos_amsuaobs, &
21       use_filtered_rad, use_eos_radobs, use_gpsrefobs, use_hirs2obs, &
22       use_hsbobs,use_hirs3obs, use_gpspwobs, use_metarobs, use_msuobs, &
23       use_kma1dvar,use_pilotobs, use_polaramvobs, use_rad, use_soundobs, &
24       use_ssmt1obs,use_ssmt2obs, use_shipsobs, use_satemobs, use_synopobs, &
25       use_radar_rv,use_profilerobs, use_obsgts, use_geoamvobs, use_buoyobs, &
26       alphacv_method,its,ite,jts,jte,cv_size_domain_jb, &
27       cv_size_domain_je, cv_size_domain,ids,ide,jds,jde,kde,ensdim_alpha, &
28       lat_stats_option,alpha_std_dev,alpha_corr_scale,len_scaling1, &
29       len_scaling2,len_scaling3,len_scaling4,len_scaling5,max_vert_var1, &
30       max_vert_var2,max_vert_var3,max_vert_var4,print_detail_be, &
31       test_statistics, var_scaling1,var_scaling2,var_scaling3,var_scaling4, &
32       var_scaling5,vert_corr,max_vert_var5,power_truncation,alpha_truncation, &
33       print_detail_regression,gas_constant, use_airsretobs, &
34       filename_len, use_ssmisobs, gravity, t_triple, use_hirs4obs, use_mhsobs, &
35       ims,ime,jms,jme,kms,kme,kds, vert_corr_2, alphacv_method_xa, vert_evalue_global, &
36       vert_evalue_local, obs_names, num_ob_indexes, &
37       sound, synop, profiler, gpsref, gpspw, polaramv, geoamv, ships, metar, &
38       satem, radar, ssmi_rv, ssmi_tb, ssmt1, ssmt2, airsr, pilot, airep, &
39       bogus, buoy, qscat, radiance, pseudo, trace_use_dull, kts,kte
40    use da_obs, only : da_fill_obs_structures, da_store_obs_grid_info
41    use da_obs_io, only : da_scan_obs_bufr,da_read_obs_bufr,da_read_obs_radar, &
42       da_scan_obs_radar,da_scan_obs_ascii,da_read_obs_ascii
43    use da_par_util, only : da_patch_to_global
44    use da_radiance, only : da_setup_bufrtovs_structures
45    use da_reporting, only : da_error,message, da_warning, da_message
46    use da_recursive_filter, only : da_calculate_rf_factors
47    use da_spectral, only : da_initialize_h,da_calc_power_spectrum
48    use da_ssmi, only : da_read_obs_ssmi,da_scan_obs_ssmi
49    use da_tools_serial, only : da_get_unit, da_free_unit, da_array_print, da_find_fft_factors, &
50       da_find_fft_trig_funcs
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