var/da/da_dynamics/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       ids,ide,jds,jde,kds,kde,ips,ipe,jps,jpe,kps,kpe,gamma, gravity,global,test_transforms, &
   9       fg_format, fg_format_wrf_arw_regional,fg_format_wrf_nmm_regional, &
  10       fg_format_wrf_arw_global, fg_format_kma_global, balance_geo,balance_geocyc, &
  11       balance_type, balance_cyc, gravity, convert_fd2uv, trace_use
  12    use module_domain, only : domain,xb_type
  13 #ifdef DM_PARALLEL
  14    use module_dm, only : local_communicator, &
  15       ntasks_x, ntasks_y, data_order_xy, mytask, &
  16       ntasks
  17    use module_comm_dm, only : halo_2d_work_sub, halo_wpec_sub, halo_wpec_adj_sub
  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_adj.inc"
  31 #include "da_balance_cycloterm_lin.inc"
  32 #include "da_balance_cycloterm.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 #include "da_wpec_constraint.inc"
  48 #include "da_wpec_constraint_adj.inc"
  49 #include "da_wpec_constraint_cycloterm.inc"
  50 #include "da_wpec_constraint_geoterm.inc"
  51 #include "da_wpec_constraint_lin.inc"
  52 #include "da_divergence_constraint.inc"
  53 #include "da_divergence_constraint_adj.inc"
  54
  55 end module da_dynamics
  56