module mkvarctl

!-----------------------------------------------------------------------
!BOP
!
! !MODULE: mkvarctl
!
! !DESCRIPTION:
! Module containing control variables
!
! !USES:
  use shr_kind_mod, only: r8 => shr_kind_r8
!
! !PUBLIC TYPES:
  implicit none
  private
  save
!
  real(r8), public, parameter :: spval = 1.e36    ! special value
  integer,  public, parameter :: ispval = -9999   ! special value

  logical, public    :: outnc_large_files     ! output files in 64-bit format for large files
  logical, public    :: outnc_double          ! output ALL data in files as 64-bit
  integer, public    :: outnc_dims = 2        ! only applicable to lat/lon grids
  logical, public    :: outnc_1d              ! true => output file is 1d  
  logical, public    :: outnc_vic             ! true => output VIC fields
  logical, public    :: outnc_3dglc           ! true => output 3D glacier fields

  character(len= 32), public :: mksrf_gridnm     = ' '  ! name of grid to use on output file
  character(len=256), public :: mksrf_fgrid      = ' '  ! land grid file name to use 
  character(len=256), public :: mksrf_gridtype   = ' '  ! land gridtype, global or reg
  character(len=256), public :: mksrf_fvegtyp    = ' '  ! vegetation data file name
  character(len=256), public :: mksrf_fhrvtyp    = ' '  ! harvest data file name
  character(len=256), public :: mksrf_fsoitex    = ' '  ! soil texture data file name
  character(len=256), public :: mksrf_forganic   = ' '  ! organic matter data file name
  character(len=256), public :: mksrf_fsoicol    = ' '  ! soil color data file name
  character(len=256), public :: mksrf_fabm       = ' '  ! ag fire peak month and
  character(len=256), public :: mksrf_fpeat      = ' '  ! peatlands and
  character(len=256), public :: mksrf_fsoildepth = ' '  ! soil depth file name
  character(len=256), public :: mksrf_fgdp       = ' '  ! gdp data file names
  character(len=256), public :: mksrf_flakwat    = ' '  ! inland lake data file name
  character(len=256), public :: mksrf_fwetlnd    = ' '  ! inland wetlands data file name
  character(len=256), public :: mksrf_furban     = ' '  ! urban data file name
  character(len=256), public :: mksrf_fglacier   = ' '  ! glacier data file name
  character(len=256), public :: mksrf_fglacierregion = ' ' ! glacier region data file name
  character(len=256), public :: mksrf_furbtopo   = ' '  ! urban topography data file name
  character(len=256), public :: mksrf_fmax       = ' '  ! fmax data file name
  character(len=256), public :: mksrf_flai       = ' '  ! lai data filename
  character(len=256), public :: mksrf_fdynuse    = ' '  ! ascii file containing names of dynamic land use files
  character(len=256), public :: mksrf_fvocef     = ' '  ! VOC Emission Factor data file name
  character(len=256), public :: mksrf_ftopostats = ' '  ! topography statistics data file name
  character(len=256), public :: mksrf_fvic       = ' '  ! VIC parameters data file name
  character(len=256), public :: mksrf_fch4       = ' '  ! inversion-derived CH4 parameters data file name

  integer           , public :: numpft         = 16   ! number of plant types

  character(len=256), public :: map_fpft        = ' ' ! Mapping file for PFT
  character(len=256), public :: map_flakwat     = ' ' ! Mapping file for lake water
  character(len=256), public :: map_fwetlnd     = ' ' ! Mapping file for wetland water
  character(len=256), public :: map_fglacier    = ' ' ! Mapping file for glacier
  character(len=256), public :: map_fglacierregion = ' ' ! Mapping file for glacier region
  character(len=256), public :: map_fsoitex     = ' ' ! Mapping file for soil texture
  character(len=256), public :: map_fsoicol     = ' ' ! Mapping file for soil color
  character(len=256), public :: map_fabm        = ' ' ! Mapping file: ag fire...
  character(len=256), public :: map_fpeat       = ' ' ! Mapping file: peatlands
  character(len=256), public :: map_fsoildepth  = ' ' ! Mapping file: soil depth
  character(len=256), public :: map_fgdp        = ' ' ! Mapping file: gdp
  character(len=256), public :: map_furban      = ' ' ! Mapping file for urban
  character(len=256), public :: map_furbtopo    = ' ' ! Mapping file for urban topography
  character(len=256), public :: map_fmax        = ' ' ! Mapping file for soil frac max
  character(len=256), public :: map_forganic    = ' ' ! Mapping file for organic soil
  character(len=256), public :: map_fvocef      = ' ' ! Mapping file for VOC emission factors
  character(len=256), public :: map_flai        = ' ' ! Mapping file for LAI
  character(len=256), public :: map_fharvest    = ' ' ! Mapping file for harvesting
  character(len=256), public :: map_ftopostats  = ' ' ! Mapping file for topography statistics
  character(len=256), public :: map_fvic        = ' ' ! Mapping file for VIC parameters
  character(len=256), public :: map_fch4        = ' ' ! Mapping file for inversion-derived CH4 parameters
  character(len=80) , public :: gitdescribe     = ' ' ! Description of model version from git
!
! Variables to override data read in with
! (all_urban is mostly for single-point mode, but could be used for sensitivity studies)
!
  logical,  public   :: all_urban              ! output ALL data as 100% covered in urban
  logical,  public   :: no_inlandwet           ! set wetland to 0% over land; wetland will only be used for ocean points
!
! !REVISION HISTORY:
! Created by Mariana Vertenstein 11/04
!
!EOP
!-----------------------------------------------------------------------

end module mkvarctl