da_dynamics.f90

1 module da_dynamics
2 
3    !---------------------------------------------------------------------------
4    !  Purpose: Contains routines to calculate dynamical quantities.
5    !---------------------------------------------------------------------------
6 
7    use da_control, only : ims,ime,jms,jme,kms,kme,its,ite,jts,jte,kts,kte, &
8       gamma, gravity, ids,ide,jds,jde,kds,kde, global, Testing_WRFVAR, &
9       fg_format, fg_format_kma_global, balance_geo,balance_geocyc, fg_format_wrf, &
10       balance_type, balance_cyc, gravity, convert_fd2uv, trace_use
11    use module_domain, only : xb_type,xpose_type
12    use da_define_structures, only : xbx_type
13    use da_reporting, only : message, da_error   
14    use da_ffts, only : da_solve_poissoneqn_fst, da_solve_poissoneqn_fst_adj
15    use da_tracing, only : da_trace_entry, da_trace_exit
16    use da_tools, only : da_set_boundary_3d
17 
18    implicit none
19 
20    contains
21 
22 #include "da_balance_cycloterm.inc"
23 #include "da_balance_cycloterm_adj.inc"
24 #include "da_balance_cycloterm_lin.inc"
25 #include "da_balance_equation_adj.inc"
26 #include "da_balance_equation_lin.inc"
27 #include "da_balance_geoterm_adj.inc"
28 #include "da_balance_geoterm_lin.inc"
29 #include "da_hydrostaticp_to_rho_adj.inc"
30 #include "da_hydrostaticp_to_rho_lin.inc"
31 #include "da_psichi_to_uv.inc"
32 #include "da_psichi_to_uv_adj.inc"
33 #include "da_uv_to_divergence.inc"
34 #include "da_uv_to_divergence_adj.inc"
35 #include "da_w_adjustment_lin.inc"
36 #include "da_w_adjustment_adj.inc"
37 #include "da_uv_to_vorticity.inc"
38 #include "da_wz_base.inc"           
39 
40 end module da_dynamics
41