da_verif_anal_control.f90
References to this file elsewhere.
1 module da_verif_anal_control
2 !----------------------------------------------------------------------------
3 ! History:
4 !
5 ! Author: Syed RH Rizvi NCAR/MMM 10/08/2007
6 !
7 ! Abstract: Main module for defining and initializing various constants,
8 ! namelist variables etc.
9 !
10 !----------------------------------------------------------------------------
11
12 implicit none
13
14 integer, parameter :: max_3d_variables = 6
15 integer, parameter :: max_2d_variables = 6
16 integer, parameter :: num_vert_levels = 100
17 integer, parameter :: max_num_scores = 3
18 integer, parameter :: max_num_exps = 10
19 real, parameter :: missing=1.0E35
20 !-----------------------------------------------------------------
21 integer, parameter :: namelist_unit = 7
22 integer, parameter :: input_file_unit = 9
23 integer, parameter :: first_unit = 11
24 integer, parameter :: second_unit = 12
25 integer, parameter :: time_series_unit = 20
26 integer, parameter :: time_average_unit = 21
27 !-----------------------------------------------------------------
28 integer, parameter :: ncl_info_unit = 30
29 integer, parameter :: grads_ctl_unit = 50
30 integer, parameter :: out_dat_unit = 60
31 !-----------------------------------------------------------------
32 character (len=512) :: profile_time_series
33 character (len=512) :: profile_time_average
34 character (len=50) :: filename
35 !-----------------------------------------------------------------
36 integer :: stime(6), etime(6)
37 character (len=4) :: year
38 character (len=2) :: month, day, hour
39 character (len=19) :: hstart, hend, hdate
40 character (len=10) :: date,pdate
41 !-----------------------------------------------------------------
42 character(len=50) :: desc3d(max_3d_variables)
43 character(len=50) :: desc2d(max_2d_variables)
44 !-----------------------------------------------------------------
45 character (len=30) :: var_to_get, var_to_plot
46 integer :: length_var, length_plot
47 !-----------------------------------------------------------------
48 logical :: output_input_grid, use_lowest_heights
49 real, dimension( num_vert_levels ) :: vert_args
50 integer :: nx, ny, nz, number_of_levels
51 !-----------------------------------------------------------------
52 integer :: io_status
53 !-----------------------------------------------------------------
54 logical :: debug1, debug2
55 !
56 logical :: verify_its_own_analysis
57 integer :: num_verifying_experiments
58 integer :: verify_forecast_hour
59 integer :: domain
60 character (len=512) :: control_exp_dir
61 character (len=512), dimension (max_num_exps) :: verif_dirs
62 character (len=512), dimension (max_num_exps) :: out_dirs
63 integer :: start_year, end_year
64 integer :: start_month, end_month
65 integer :: start_day, end_day
66 integer :: start_hour, end_hour
67 integer :: start_minutes=0, end_minutes=0
68 integer :: start_seconds=0, end_seconds=0
69 integer :: interval_hour
70 integer :: num3dvar
71 integer :: num2dvar
72 character(len=20) :: var3d(max_3d_variables)
73 character(len=20) :: var2d(max_2d_variables)
74 integer :: num_scores
75 character(len=20) :: score_names(max_num_scores)
76 character (len=1) :: vertical_type
77 character (len=20) :: verification_file_string
78 !-----------------------------------------------------------------
79
80 namelist /control_main/ verify_its_own_analysis, num_verifying_experiments, &
81 verification_file_string,control_exp_dir,verif_dirs, out_dirs, &
82 verify_forecast_hour, domain, vertical_type
83 namelist /control_times/ start_year, start_month, start_day, start_hour, &
84 end_year, end_month, end_day, end_hour, interval_hour
85 namelist /control_vars/ num3dvar, var3d, num2dvar, var2d
86
87
88 end module da_verif_anal_control