da_vtox_transforms.f90

1 module da_vtox_transforms
2 
3    !---------------------------------------------------------------------------
4    ! Purpose: Contains routines used to transform control variable V to model
5    !          variables X.
6    !---------------------------------------------------------------------------
7   
8    use module_dm, only : wrf_dm_sum_real,wrf_dm_sum_reals
9    use module_domain, only : ep_type, vp_type, x_type, xb_type, xpose_type
10 
11    use da_control, only : trace_use, ims,ime,jms,jme,kms,kme,jds,jde,kds,kde, &
12       its,ite,jts,jte,kts,kte, cos_xls, cos_xle, sin_xle, sin_xls, pi, global, &
13       vertical_ip,alphacv_method,use_radarobs,use_radar_rf,Use_SsmiTbObs, &
14       Use_SsmiRetrievalObs, use_ssmt2obs, use_ssmt1obs, use_gpspwobs, &
15       use_gpsrefobs,sfc_assi_options, testing_wrfvar, vert_corr, fg_format, &
16       fg_format_kma_global, fg_format_wrf, ids,ide, stdout
17    use da_define_structures, only : be_type, xbx_type,da_zero_vp_type,da_zero_x
18    use da_dynamics, only : da_psichi_to_uv,da_psichi_to_uv_adj
19    use da_physics, only : da_uvprho_to_w_lin,da_uvprho_to_w_adj, &
20       da_pt_to_rho_adj, da_pt_to_rho_lin,da_moist_phys_lin, &
21       da_moist_phys_adj, da_transform_xtogpsref_lin, da_transform_xtotpw, &
22       da_transform_xtowtq, da_transform_xtotpw_adj, &
23       da_transform_xtogpsref_adj, da_transform_xtowtq_adj
24    use da_par_util, only : da_vv_to_cv,da_cv_to_vv
25    use da_recursive_filter, only : da_transform_through_rf, &
26       da_transform_through_rf_adj
27    use da_reporting, only : da_error
28    use da_spectral, only : da_vtovv_spectral,da_vtovv_spectral_adj
29    use da_ssmi, only : da_transform_xtoseasfcwind_lin,da_transform_xtotb_adj, &
30       da_transform_xtoseasfcwind_adj, da_transform_xtotb_lin
31    use da_tools, only : da_set_boundary_xa
32    use da_tracing, only : da_trace_entry, da_trace_exit
33 
34    implicit none
35 
36 
37    contains
38 
39 #include "da_add_flow_dependence_vp.inc"
40 #include "da_add_flow_dependence_vp_adj.inc"
41 #include "da_add_flow_dependence_xa.inc"
42 #include "da_add_flow_dependence_xa_adj.inc"
43 #include "da_check_eof_decomposition.inc"
44 #include "da_transform_vtovv.inc"
45 #include "da_transform_vtovv_adj.inc"
46 #include "da_transform_vtox.inc"
47 #include "da_transform_vtox_adj.inc"
48 #include "da_transform_vptox.inc"
49 #include "da_transform_vptox_adj.inc"
50 #include "da_transform_vvtovp.inc"
51 #include "da_transform_vvtovp_adj.inc"
52 #include "da_transform_vptovv.inc"
53 #include "da_vertical_transform.inc"
54 #include "da_get_vpoles.inc"
55 #include "da_get_spoles.inc"
56 #include "da_get_avpoles.inc"
57 #include "da_get_aspoles.inc"
58 #include "da_transform_vtovv_global.inc"
59 #include "da_transform_vtovv_global_adj.inc"
60 
61 end module da_vtox_transforms