var/da/da_verif_grid/da_verif_grid_control.f90

   1 module da_verif_grid_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 = 7
  16   integer, parameter                     :: num_vert_levels = 20
  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   integer, parameter                     :: unit_all   = 70
  28   integer, parameter                     :: unit_land  = 71
  29   integer, parameter                     :: unit_water = 72
  30 !-----------------------------------------------------------------
  31   character (len=512)                    :: profile_time_series_3d
  32   character (len=512)                    :: time_series_2d
  33   character (len=50)                     :: filename
  34 !-----------------------------------------------------------------
  35   integer                                :: stime(6), etime(6)
  36   character (len=4)                      :: year
  37   character (len=2)                      :: month, day, hour
  38   character (len=19)                     :: hstart, hend, hdate
  39   character (len=10)                     :: date,pdate
  40 !-----------------------------------------------------------------
  41   real, dimension( num_vert_levels )     :: vert_levels
  42   integer                                :: nx, ny, nz, number_of_levels
  43 !-----------------------------------------------------------------
  44   integer                                :: io_status
  45 !-----------------------------------------------------------------
  46   logical                                :: debug1, debug2
  47 !
  48   logical                                :: verify_its_own_analysis
  49   integer                                :: num_verifying_experiments
  50   integer                                :: verify_forecast_hour
  51   integer                                :: domain
  52   character (len=512)                    :: control_exp_dir
  53   character (len=512), dimension (max_num_exps) :: verif_dirs
  54   character (len=512), dimension (max_num_exps) :: out_dirs
  55   integer                                :: start_year, end_year
  56   integer                                :: start_month, end_month
  57   integer                                :: start_day, end_day
  58   integer                                :: start_hour, end_hour
  59   integer                                :: start_minutes=0, end_minutes=0
  60   integer                                :: start_seconds=0, end_seconds=0
  61   integer                                :: interval_hour
  62   integer                                :: num3dvar
  63   integer                                :: num2dvar
  64   character(len=20)                      :: var3d(max_3d_variables)
  65   character(len=20)                      :: var2d(max_2d_variables)
  66   integer                                :: num_scores
  67   character(len=20)                      :: score_names(max_num_scores)
  68   character (len=1)                      :: vertical_type
  69   character (len=20)                     :: verification_file_string
  70   integer                                :: istart, iend, jstart, jend
  71
  72 !-----------------------------------------------------------------
  73
  74   namelist /control_main/ verify_its_own_analysis, num_verifying_experiments, &
  75                 verification_file_string,control_exp_dir,verif_dirs, out_dirs, &
  76                 verify_forecast_hour, domain, vertical_type
  77   namelist /control_times/ start_year, start_month, start_day, start_hour, &
  78                 end_year, end_month, end_day, end_hour, interval_hour
  79   namelist /control_vars/ num3dvar, var3d, num2dvar, var2d
  80   namelist /sub_domain/ istart, iend, jstart, jend
  81
  82
  83   data vert_levels  /1000.0, 925.0, 850.0, 700.0, 500.0, 400.0, 300.0, 250.0, &
  84                       200.0, 150.0, 100.0,  70.0,  50.0,  30.0,  20.0,  10.0, &
  85                         5.0,   3.0,   2.0,   1.0/
  86 end module da_verif_grid_control