3 use module_domain
, only
: domain
5 use da_control
, only
: obs_qc_pointer
,max_ob_levels
,missing_r
, &
6 v_interp_p
, v_interp_h
, check_max_iv_print
, &
7 missing
, max_error_uv
, max_error_t
, rootproc
, kms
,kme
,kts
,kte
, &
8 max_error_p
,max_error_q
, check_max_iv_unit
,check_max_iv
, trace_use_dull
, &
9 max_stheight_diff
,missing_data
,max_error_bq
,max_error_slp
,fails_error_max
, &
10 max_error_bt
, max_error_buv
, geoamv
, anal_type_verify
,qcstat_conv_unit
,ob_vars
, &
11 convert_fd2uv
, convert_uv2fd
, max_error_spd
, max_error_dir
, max_omb_spd
, max_omb_dir
, pi
, qc_rej_both
,&
12 wind_sd_geoamv
, wind_stats_sd
, write_rej_obs_conv
13 use da_grid_definitions
, only
: da_ffdduv
, da_ffdduv_model
,da_ffdduv_diagnose
14 use da_physics
, only
: da_uv_to_sd_lin
, da_uv_to_sd_adj
15 use da_define_structures
, only
: maxmin_type
, iv_type
, y_type
, jo_type
, &
16 bad_data_type
, x_type
, number_type
, bad_data_type
, &
18 use da_interpolation
, only
: da_interp_lin_3d
, da_to_zk
, &
20 use da_par_util
, only
: da_proc_stats_combine
21 use da_par_util1
, only
: da_proc_sum_int
22 use da_statistics
, only
: da_stats_calculate
23 use da_tools
, only
: da_max_error_qc
, da_residual
, da_convert_zk
, da_get_print_lvl
24 use da_tracing
, only
: da_trace_entry
, da_trace_exit
26 ! The "stats_geoamv_type" is ONLY used locally in da_geoamv:
28 type residual_geoamv1_type
31 end type residual_geoamv1_type
33 type maxmin_geoamv_stats_type
34 type (maxmin_type
) :: u
, v
, t
, q
35 end type maxmin_geoamv_stats_type
37 type stats_geoamv_type
38 type (maxmin_geoamv_stats_type
) :: maximum
, minimum
39 type (residual_geoamv1_type
) :: average
, rms_err
40 end type stats_geoamv_type
44 #
include "da_ao_stats_geoamv.inc"
45 #
include "da_jo_and_grady_geoamv.inc"
46 #
include "da_residual_geoamv.inc"
47 #
include "da_oi_stats_geoamv.inc"
48 #
include "da_print_stats_geoamv.inc"
49 #
include "da_transform_xtoy_geoamv.inc"
50 #
include "da_transform_xtoy_geoamv_adj.inc"
51 #
include "da_check_max_iv_geoamv.inc"
52 #
include "da_get_innov_vector_geoamv.inc"
53 #
include "da_calculate_grady_geoamv.inc"