da_tools.f90

1 module da_tools
2    
3    !---------------------------------------------------------------------------
4    ! Purpose: Contains general tools.
5    !---------------------------------------------------------------------------
6    
7    use module_bc, only : bdyzone
8    use module_dm, only : wrf_dm_sum_real
9    use module_domain, only : xb_type, xpose_type
10 
11    use da_control, only : pi, gravity, gas_constant, ims, ime, jms,jme, &
12       kms,kme,its,ite,jts,jte,kts,kte,ids,ide,stdout, &
13       trace_use, da_array_print, fg_format_kma_global, coarse_ds, coarse_ix, &
14       coarse_jy, fg_format, c2, cone_factor, earth_radius, dsm, &
15       map_projection, psi1, pole, start_x, phic, start_y, xlonc, ycntr, &
16       put_rand_seed, seed_array1, seed_array2, obs_qc_pointer, &
17       set_omb_rand_fac, fails_error_max, missing_r,x_start_sub_domain, global, &
18       fg_format_wrf, x_end_sub_domain, y_end_sub_domain, def_sub_domain, &
19       y_start_sub_domain, start_lat, delt_lat, delt_lon, start_lon, cp, &
20       missing, surface_correction,print_detail_map, oi_use, use_rad, stderr, &
21       t_kelvin
22    use da_define_structures, only : info_type, field_type, x_type,  &
23       model_loc_type, synop_type, bad_info_type, da_gauss_noise, &
24       ob_type, y_type
25    use da_tracing, only : da_trace_entry, da_trace_exit
26    use da_reporting, only : da_error, message, da_warning
27    
28    implicit none
29    
30    ! Code copied from SI, see header below
31 #include "da_map_utils_defines.inc"
32 
33 contains
34 
35 #include "da_ijll_lc.inc"
36 #include "da_llij_lc.inc"
37 #include "da_set_lc.inc"
38 #include "da_ijll_ps.inc"
39 #include "da_llij_ps.inc"
40 #include "da_set_ps.inc"
41 #include "da_map_init.inc"
42 #include "da_llij_latlon.inc"
43 #include "da_ijll_latlon.inc"
44 #include "da_latlon_to_ij.inc"
45 #include "da_ij_to_latlon.inc"
46 #include "da_map_set.inc"
47 #include "da_ijll_merc.inc"
48 #include "da_llij_merc.inc"
49 #include "da_set_merc.inc"
50 #include "da_lc_cone.inc"
51 
52 #include "da_1d_eigendecomposition.inc"
53 #include "da_obs_sfc_correction.inc"
54 #include "da_sfcprs.inc"
55 #include "da_intpsfc_prs.inc"
56 #include "da_intpsfc_tem.inc"
57 #include "da_mo_correction.inc"
58 #include "da_diff_seconds.inc"
59 #include "da_global_ll_to_xy.inc"
60 #include "da_ll_to_xy.inc"
61 #include "da_residual.inc"
62 #include "da_residual_new.inc"
63 #include "da_add_noise.inc"
64 #include "da_add_noise_new.inc"
65 #include "da_max_error_qc.inc"
66 #include "da_random_omb.inc"
67 #include "da_random_seed.inc"
68 #include "da_set_randomcv.inc"
69 #include "da_gaus_noise.inc"
70 #include "da_llxy.inc"
71 #include "da_openfile.inc"
72 #include "da_smooth_anl.inc"
73 #include "da_togrid_new.inc"
74 #include "da_togrid.inc"
75 #include "da_unifva.inc"
76 #include "da_xyll.inc"
77 
78 #include "da_eof_decomposition_test.inc"
79 #include "da_eof_decomposition.inc"
80 #include "da_lubksb.inc"
81 #include "da_ludcmp.inc"
82 #include "da_set_boundary_xa.inc"
83 #include "da_set_boundary_xb.inc"
84 #include "da_set_boundary_3d.inc"
85 
86 #include "da_get_2d_sum.inc"
87 #include "da_get_3d_sum.inc"
88 
89 #include "da_oi.inc"
90    
91 end module da_tools
92