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, test_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 : domain,xb_type
12 #ifdef DM_PARALLEL
13    use module_dm, only : local_communicator, &
14       ntasks_x, ntasks_y, data_order_xy, mytask, &
15       ntasks
16    use module_comm_dm, only : halo_2d_work_sub
17    use da_control, only : ips,ipe,jps,jpe,kps,kpe
18 #endif
19 
20    use da_define_structures, only : xbx_type
21    use da_reporting, only : message, da_error   
22    use da_ffts, only : da_solve_poissoneqn_fst, da_solve_poissoneqn_fst_adj
23    use da_tracing, only : da_trace_entry, da_trace_exit
24    use da_tools, only : da_set_boundary_3d
25 
26    implicit none
27 
28    contains
29 
30 #include "da_balance_cycloterm.inc"
31 #include "da_balance_cycloterm_adj.inc"
32 #include "da_balance_cycloterm_lin.inc"
33 #include "da_balance_equation_adj.inc"
34 #include "da_balance_equation_lin.inc"
35 #include "da_balance_geoterm_adj.inc"
36 #include "da_balance_geoterm_lin.inc"
37 #include "da_hydrostaticp_to_rho_adj.inc"
38 #include "da_hydrostaticp_to_rho_lin.inc"
39 #include "da_psichi_to_uv.inc"
40 #include "da_psichi_to_uv_adj.inc"
41 #include "da_uv_to_divergence.inc"
42 #include "da_uv_to_divergence_adj.inc"
43 #include "da_w_adjustment_lin.inc"
44 #include "da_w_adjustment_adj.inc"
45 #include "da_uv_to_vorticity.inc"
46 #include "da_wz_base.inc"           
47 
48 end module da_dynamics
49