test_params.F90

Go to the documentation of this file.

program test_params
 
  use iso_c_binding, only : c_int, c_float, c_double, c_bool
!  use constants_and_conversions, only :WHITESPACE
  use exceptions
!  use fstring
  use fstring_list
!  use dictionary
  use parameters
  implicit none
 
  type (parameters_t)             :: params
  real (c_float), allocatable     :: fvalues(:)
  type (fstring_list_t)                 :: slstring
 
 
  call params%add_file("LU_lookup_NLCD.txt")
  !call PARAMS%add_file("rain_adj_factors_maui.prn", sDelimiters = "WHITESPACE")
  call params%add_file("IRRIGATION_lookup_TWO_FACTOR.txt")
  call params%munge_file()
 
  !call PARAM_DICT%get_values(sKey="raincoef_3", fValues=fValues)
 
  !print *, "count: ", ubound(fValues, 1)
  !print *, "min  : ", minval(fValues)
  !print *, "max  : ", maxval(fValues)
  !print *, "mean : ", sum(fValues)/ ubound(fValues, 1)
 
  slstring = param_dict%grep_keys("REW")
  call slstring%print()
 
  call slstring%deallocate()
 
  slstring = param_dict%grep_keys("L_")  
  call slstring%print()
 
  call check_warnings()
 
 
end program test_params