var/da/da_verif_anal/da_verif_anal_control.f90

   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_3d
  33   character (len=512)                    :: profile_time_average_3d
  34   character (len=512)                    :: time_series_2d
  35   character (len=512)                    :: time_average_2d
  36   character (len=50)                     :: filename
  37 !-----------------------------------------------------------------
  38   integer                                :: stime(6), etime(6)
  39   character (len=4)                      :: year
  40   character (len=2)                      :: month, day, hour
  41   character (len=19)                     :: hstart, hend, hdate
  42   character (len=10)                     :: date,pdate
  43 !-----------------------------------------------------------------
  44   character(len=50)                      :: desc3d(max_3d_variables)
  45   character(len=50)                      :: desc2d(max_2d_variables)
  46 !-----------------------------------------------------------------
  47   character (len=30)                     :: var_to_get, var_to_plot
  48   integer                                :: length_var, length_plot
  49 !-----------------------------------------------------------------
  50   logical                                :: output_input_grid, use_lowest_heights
  51   real, dimension( num_vert_levels )     :: vert_args
  52   integer                                :: nx, ny, nz, number_of_levels
  53 !-----------------------------------------------------------------
  54   integer                                :: io_status
  55 !-----------------------------------------------------------------
  56   logical                                :: debug1, debug2
  57 !
  58   logical                                :: verify_its_own_analysis
  59   integer                                :: num_verifying_experiments
  60   integer                                :: verify_forecast_hour
  61   integer                                :: domain
  62   character (len=512)                    :: control_exp_dir
  63   character (len=512), dimension (max_num_exps) :: verif_dirs
  64   character (len=512), dimension (max_num_exps) :: out_dirs
  65   integer                                :: start_year, end_year
  66   integer                                :: start_month, end_month
  67   integer                                :: start_day, end_day
  68   integer                                :: start_hour, end_hour
  69   integer                                :: start_minutes=0, end_minutes=0
  70   integer                                :: start_seconds=0, end_seconds=0
  71   integer                                :: interval_hour
  72   integer                                :: num3dvar
  73   integer                                :: num2dvar
  74   character(len=20)                      :: var3d(max_3d_variables)
  75   character(len=20)                      :: var2d(max_2d_variables)
  76   integer                                :: num_scores
  77   character(len=20)                      :: score_names(max_num_scores)
  78   character (len=1)                      :: vertical_type
  79   character (len=20)                     :: verification_file_string
  80 !-----------------------------------------------------------------
  81
  82   namelist /control_main/ verify_its_own_analysis, num_verifying_experiments, &
  83                 verification_file_string,control_exp_dir,verif_dirs, out_dirs, &
  84                 verify_forecast_hour, domain, vertical_type
  85   namelist /control_times/ start_year, start_month, start_day, start_hour, &
  86                 end_year, end_month, end_day, end_hour, interval_hour
  87   namelist /control_vars/ num3dvar, var3d, num2dvar, var2d
  88
  89
  90 end module da_verif_anal_control