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, domain
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_dull, trace_use, 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       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, use_rad, stderr, &
21       t_kelvin, trace_use_frequent, jds, jde
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       iv_type, y_type, da_random_seed, infa_type
25    use da_tools_serial, only : da_array_print
26    use da_tracing, only : da_trace_entry, da_trace_exit
27    use da_reporting, only : da_error, message, da_warning
28    
29    implicit none
30    
31    ! Code copied from SI, see header below
32 #include "da_map_utils_defines.inc"
33 
34 contains
35 
36 #include "da_llxy.inc"
37 #include "da_llxy_new.inc"
38 #include "da_llxy_default.inc"
39 #include "da_llxy_default_new.inc"
40 #include "da_llxy_kma_global.inc"
41 #include "da_llxy_kma_global_new.inc"
42 #include "da_llxy_latlon.inc"
43 #include "da_llxy_latlon_new.inc"
44 #include "da_llxy_lc.inc"
45 #include "da_llxy_lc_new.inc"
46 #include "da_llxy_merc.inc"
47 #include "da_llxy_merc_new.inc"
48 #include "da_llxy_ps.inc"
49 #include "da_llxy_ps_new.inc"
50 #include "da_llxy_wrf.inc"
51 #include "da_llxy_wrf_new.inc"
52 #include "da_xyll.inc"
53 #include "da_xyll_default.inc"
54 #include "da_xyll_latlon.inc"
55 #include "da_xyll_lc.inc"
56 #include "da_xyll_merc.inc"
57 #include "da_xyll_ps.inc"
58 #include "da_set_lc.inc"
59 #include "da_set_ps.inc"
60 #include "da_map_init.inc"
61 #include "da_map_set.inc"
62 #include "da_set_merc.inc"
63 #include "da_lc_cone.inc"
64 #include "da_convert_zk.inc"
65 
66 #include "da_1d_eigendecomposition.inc"
67 #include "da_obs_sfc_correction.inc"
68 #include "da_sfcprs.inc"
69 #include "da_intpsfc_prs.inc"
70 #include "da_intpsfc_tem.inc"
71 #include "da_mo_correction.inc"
72 #include "da_diff_seconds.inc"
73 #include "da_residual.inc"
74 #include "da_residual_new.inc"
75 #include "da_add_noise.inc"
76 #include "da_add_noise_new.inc"
77 #include "da_max_error_qc.inc"
78 #include "da_random_omb.inc"
79 #include "da_set_randomcv.inc"
80 #include "da_gaus_noise.inc"
81 #include "da_openfile.inc"
82 #include "da_smooth_anl.inc"
83 #include "da_togrid_new.inc"
84 #include "da_togrid.inc"
85 #include "da_unifva.inc"
86 
87 #include "da_eof_decomposition_test.inc"
88 #include "da_eof_decomposition.inc"
89 #include "da_lubksb.inc"
90 #include "da_ludcmp.inc"
91 #include "da_set_boundary_xa.inc"
92 #include "da_set_boundary_xb.inc"
93 #include "da_set_boundary_3d.inc"
94 
95 #include "da_get_2d_sum.inc"
96 #include "da_get_3d_sum.inc"
97 
98 end module da_tools
99