da_transfer_model.f90

1 module da_transfer_model
2 
3    !---------------------------------------------------------------------------
4    ! Purpose: Transfer model states between different models
5    !---------------------------------------------------------------------------
6 
7    use module_configure, only : grid_config_rec_type,nl_set_dyn_opt, &
8       nl_get_stand_lon,nl_get_moad_cen_lat,nl_get_cen_lon,nl_get_cen_lat, &
9       nl_get_dx,nl_get_truelat2,nl_get_truelat1, nl_get_map_proj
10    use module_domain, only : domain
11    use module_state_description, only : dyn_em_ad, dyn_em, p_qv,dyn_em_tl, &
12       p_qr, p_qi,p_qs,p_qg,p_qc,num_moist, p_a_qv, p_g_qv
13    use module_dm, only : wrf_dm_sum_real, wrf_dm_sum_reals
14 #ifdef DM_PARALLEL
15    use module_dm, only : local_communicator, &
16       ntasks_x, ntasks_y, data_order_xyz, mytask, &
17       ntasks, data_order_xy
18    use module_comm_dm, only : halo_xa_sub, halo_init_sub, halo_psichi_uv_adj_sub
19       
20    use da_control, only : ips,ipe,jps,jpe,kps,kpe
21 #endif
22 
23    use da_control, only : cos_xls, sin_xls, cos_xle, sin_xle, trace_use, &
24       coarse_jy, coarse_ix, cone_factor, delt_lon, delt_lat, gas_constant, &
25       map_projection,earth_omega,mix,pi,phic,mkz,start_lon,start_lat, &
26       start_x,xlonc,start_y,mjy, global, deg_to_rad, earth_radius, &
27       var4d,analysis_date,coarse_ds,analysis_accu,dsm,pole, fg_format_kma_global, &
28       print_detail_map,stdout,truelat1_3dv, fg_format_wrf, fg_format, base_pres, &
29       truelat2_3dv, periodic_x,write_increments,max_ext_its, gravity, &
30       kappa, print_detail_xa,rd_over_rv,t0, print_detail_xa, check_rh, &
31       print_detail_xb,test_dm_exact,base_lapse,base_temp,vertical_ip,ptop, &
32       use_ssmitbobs, dt_cloud_model, cp, use_ssmiretrievalobs,ids,ide, &
33       jds,jde,kds,kde,ims,ime,jms,jme,kms,kme,its,ite,jts,jte,kts,kte, &
34       vertical_ip_sqrt_delta_p, vertical_ip_delta_p,check_rh_simple, check_rh_tpw
35    use da_define_structures, only : xbx_type
36    use da_grid_definitions, only : da_set_map_para
37    use da_par_util, only : da_patch_to_global
38    use da_physics, only : da_check_rh_simple,da_roughness_from_lanu, &
39       da_sfc_wtq,da_tpq_to_rh,da_trh_to_td,da_wrf_tpq_2_slp,da_integrat_dz, &
40       da_tpq_to_rh, da_check_rh,da_transform_xtogpsref
41    use da_reporting, only : da_error,message, da_message, da_warning
42    use da_setup_structures, only : da_setup_runconstants,da_write_increments, &
43       da_write_kma_increments,da_cloud_model
44    use da_ssmi, only : da_transform_xtotb
45    use da_tools, only : map_info, proj_merc, proj_ps,proj_lc,proj_latlon, &
46       da_llxy_default,da_llxy_wrf,da_xyll,da_diff_seconds,da_map_set, &
47       da_set_boundary_xb
48    use da_tracing, only : da_trace_entry, da_trace_exit, da_trace
49    use da_vtox_transforms, only : da_get_vpoles
50    use da_wrfvar_io, only : da_med_initialdata_output,da_med_initialdata_input
51    ! Do not use line below, because it shows that we are passing a scalar to 
52    ! an array
53    ! use da_wrf_interfaces, only : wrf_dm_bcast_real
54    use da_wrf_interfaces, only : wrf_debug
55 
56    implicit none
57 
58    contains
59 
60 #include "da_transfer_wrftoxb.inc"
61 #include "da_transfer_kmatoxb.inc"
62 #include "da_transfer_xatowrf.inc"
63 #include "da_transfer_xatokma.inc"
64 #include "da_transfer_wrftltoxa.inc"
65 #include "da_transfer_wrftltoxa_adj.inc"
66 #include "da_transfer_xatowrftl.inc"
67 #include "da_transfer_xatowrftl_adj.inc"
68 #include "da_transfer_xatoanalysis.inc"
69 #include "da_setup_firstguess.inc"
70 #include "da_setup_firstguess_wrf.inc"
71 #include "da_setup_firstguess_kma.inc"
72 
73 end module da_transfer_model