<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_DYNAMICS'><A href='../../html_code/dynamics/da_dynamics.f90.html#DA_DYNAMICS' TARGET='top_target'><IMG SRC="../../gif/bar_purple.gif" border=0></A>
module da_dynamics 4,6
!---------------------------------------------------------------------------
! Purpose: Contains routines to calculate dynamical quantities.
!---------------------------------------------------------------------------
use da_control
, only : ims,ime,jms,jme,kms,kme,its,ite,jts,jte,kts,kte, &
ids,ide,jds,jde,kds,kde,ips,ipe,jps,jpe,kps,kpe,gamma, gravity,global,test_transforms, &
fg_format, fg_format_wrf_arw_regional,fg_format_wrf_nmm_regional, &
fg_format_wrf_arw_global, fg_format_kma_global, balance_geo,balance_geocyc, &
balance_type, balance_cyc, gravity, convert_fd2uv, trace_use
use module_domain, only : domain,xb_type
#ifdef DM_PARALLEL
use module_dm, only : local_communicator, &
ntasks_x, ntasks_y, data_order_xy, mytask, &
ntasks
use module_comm_dm, only : halo_2d_work_sub, halo_wpec_sub, halo_wpec_adj_sub
#endif
use da_define_structures, only : xbx_type
use da_reporting, only : message, da_error
use da_ffts, only : da_solve_poissoneqn_fst, da_solve_poissoneqn_fst_adj
use da_tracing, only : da_trace_entry, da_trace_exit
use da_tools, only : da_set_boundary_3d
implicit none
contains
#include "da_balance_cycloterm_adj.inc"
#include "da_balance_cycloterm_lin.inc"
#include "da_balance_cycloterm.inc"
#include "da_balance_equation_adj.inc"
#include "da_balance_equation_lin.inc"
#include "da_balance_geoterm_adj.inc"
#include "da_balance_geoterm_lin.inc"
#include "da_hydrostaticp_to_rho_adj.inc"
#include "da_hydrostaticp_to_rho_lin.inc"
#include "da_psichi_to_uv.inc"
#include "da_psichi_to_uv_adj.inc"
#include "da_uv_to_divergence.inc"
#include "da_uv_to_divergence_adj.inc"
#include "da_w_adjustment_lin.inc"
#include "da_w_adjustment_adj.inc"
#include "da_uv_to_vorticity.inc"
#include "da_wz_base.inc"
#include "da_wpec_constraint.inc"
#include "da_wpec_constraint_adj.inc"
#include "da_wpec_constraint_cycloterm.inc"
#include "da_wpec_constraint_geoterm.inc"
#include "da_wpec_constraint_lin.inc"
end module da_dynamics