SUBROUTINE track_input ( grid , ierr )
    USE module_domain
    USE module_utility
    IMPLICIT NONE
      integer, parameter :: WRF_FILE_NOT_OPENED = 100
      integer, parameter :: WRF_FILE_OPENED_NOT_COMMITTED = 101
      integer, parameter :: WRF_FILE_OPENED_FOR_WRITE = 102
      integer, parameter :: WRF_FILE_OPENED_FOR_READ = 103
      integer, parameter :: WRF_REAL = 104
      integer, parameter :: WRF_DOUBLE = 105
      integer, parameter :: WRF_FLOAT=WRF_REAL
      integer, parameter :: WRF_INTEGER = 106
      integer, parameter :: WRF_LOGICAL = 107
      integer, parameter :: WRF_COMPLEX = 108
      integer, parameter :: WRF_DOUBLE_COMPLEX = 109
      integer, parameter :: WRF_FILE_OPENED_FOR_UPDATE = 110
      integer, parameter :: WRF_FILE_OPENED_AND_COMMITTED = 102
  integer, parameter :: WRF_NO_ERR = 0
  integer, parameter :: WRF_WARN_FILE_NF = -1
  integer, parameter :: WRF_WARN_MD_NF = -2
  integer, parameter :: WRF_WARN_TIME_NF = -3
  integer, parameter :: WRF_WARN_TIME_EOF = -4
  integer, parameter :: WRF_WARN_VAR_NF = -5
  integer, parameter :: WRF_WARN_VAR_EOF = -6
  integer, parameter :: WRF_WARN_TOO_MANY_FILES = -7
  integer, parameter :: WRF_WARN_TYPE_MISMATCH = -8
  integer, parameter :: WRF_WARN_WRITE_RONLY_FILE = -9
  integer, parameter :: WRF_WARN_READ_WONLY_FILE = -10
  integer, parameter :: WRF_WARN_FILE_NOT_OPENED = -11
  integer, parameter :: WRF_WARN_2DRYRUNS_1VARIABLE = -12
  integer, parameter :: WRF_WARN_READ_PAST_EOF = -13
  integer, parameter :: WRF_WARN_BAD_DATA_HANDLE = -14
  integer, parameter :: WRF_WARN_WRTLEN_NE_DRRUNLEN = -15
  integer, parameter :: WRF_WARN_TOO_MANY_DIMS = -16
  integer, parameter :: WRF_WARN_COUNT_TOO_LONG = -17
  integer, parameter :: WRF_WARN_DIMENSION_ERROR = -18
  integer, parameter :: WRF_WARN_BAD_MEMORYORDER = -19
  integer, parameter :: WRF_WARN_DIMNAME_REDEFINED = -20
  integer, parameter :: WRF_WARN_CHARSTR_GT_LENDATA = -21
  integer, parameter :: WRF_WARN_NOTSUPPORTED = -22
  integer, parameter :: WRF_WARN_NOOP = -23
  integer, parameter :: WRF_ERR_FATAL_ALLOCATION_ERROR = -100
  integer, parameter :: WRF_ERR_FATAL_DEALLOCATION_ERR = -101
  integer, parameter :: WRF_ERR_FATAL_BAD_FILE_STATUS = -102
  integer, parameter :: WRF_ERR_FATAL_BAD_VARIABLE_DIM = -1004
  integer, parameter :: WRF_ERR_FATAL_MDVAR_DIM_NOT_1D = -1005
  integer, parameter :: WRF_ERR_FATAL_TOO_MANY_TIMES = -1006
  integer, parameter :: WRF_WARN_BAD_DATA_TYPE = -1007
  integer, parameter :: WRF_WARN_FILE_NOT_COMMITTED = -1008
  integer, parameter :: WRF_WARN_FILE_OPEN_FOR_READ = -1009
  integer, parameter :: WRF_IO_NOT_INITIALIZED = -1010
  integer, parameter :: WRF_WARN_MD_AFTER_OPEN = -1011
  integer, parameter :: WRF_WARN_TOO_MANY_VARIABLES = -1012
  integer, parameter :: WRF_WARN_DRYRUN_CLOSE = -1013
  integer, parameter :: WRF_WARN_DATESTR_BAD_LENGTH = -1014
  integer, parameter :: WRF_WARN_ZERO_LENGTH_READ = -1015
  integer, parameter :: WRF_WARN_DATA_TYPE_NOT_FOUND = -1016
  integer, parameter :: WRF_WARN_DATESTR_ERROR = -1017
  integer, parameter :: WRF_WARN_DRYRUN_READ = -1018
  integer, parameter :: WRF_WARN_ZERO_LENGTH_GET = -1019
  integer, parameter :: WRF_WARN_ZERO_LENGTH_PUT = -1020
  integer, parameter :: WRF_WARN_NETCDF = -1021
  integer, parameter :: WRF_WARN_LENGTH_LESS_THAN_1 = -1022
  integer, parameter :: WRF_WARN_MORE_DATA_IN_FILE = -1023
  integer, parameter :: WRF_WARN_DATE_LT_LAST_DATE = -1024
  integer, parameter :: WRF_HDF5_ERR_FILE = -200
  integer, parameter :: WRF_HDF5_ERR_MD = -201
  integer, parameter :: WRF_HDF5_ERR_TIME = -202
  integer, parameter :: WRF_HDF5_ERR_TIME_EOF = -203
  integer, parameter :: WRF_HDF5_ERR_MORE_DATA_IN_FILE = -204
  integer, parameter :: WRF_HDF5_ERR_DATE_LT_LAST_DATE = -205
  integer, parameter :: WRF_HDF5_ERR_TOO_MANY_FILES = -206
  integer, parameter :: WRF_HDF5_ERR_TYPE_MISMATCH = -207
  integer, parameter :: WRF_HDF5_ERR_LENGTH_LESS_THAN_1 = -208
  integer, parameter :: WRF_HDF5_ERR_WRITE_RONLY_FILE = -209
  integer, parameter :: WRF_HDF5_ERR_READ_WONLY_FILE = -210
  integer, parameter :: WRF_HDF5_ERR_FILE_NOT_OPENED = -211
  integer, parameter :: WRF_HDF5_ERR_DATESTR_ERROR = -212
  integer, parameter :: WRF_HDF5_ERR_DRYRUN_READ = -213
  integer, parameter :: WRF_HDF5_ERR_ZERO_LENGTH_GET = -214
  integer, parameter :: WRF_HDF5_ERR_ZERO_LENGTH_PUT = -215
  integer, parameter :: WRF_HDF5_ERR_2DRYRUNS_1VARIABLE = -216
  integer, parameter :: WRF_HDF5_ERR_DATA_TYPE_NOTFOUND = -217
  integer, parameter :: WRF_HDF5_ERR_READ_PAST_EOF = -218
  integer, parameter :: WRF_HDF5_ERR_BAD_DATA_HANDLE = -219
  integer, parameter :: WRF_HDF5_ERR_WRTLEN_NE_DRRUNLEN = -220
  integer, parameter :: WRF_HDF5_ERR_DRYRUN_CLOSE = -221
  integer, parameter :: WRF_HDF5_ERR_DATESTR_BAD_LENGTH = -222
  integer, parameter :: WRF_HDF5_ERR_ZERO_LENGTH_READ = -223
  integer, parameter :: WRF_HDF5_ERR_TOO_MANY_DIMS = -224
  integer, parameter :: WRF_HDF5_ERR_TOO_MANY_VARIABLES = -225
  integer, parameter :: WRF_HDF5_ERR_COUNT_TOO_LONG = -226
  integer, parameter :: WRF_HDF5_ERR_DIMENSION_ERROR = -227
  integer, parameter :: WRF_HDF5_ERR_BAD_MEMORYORDER = -228
  integer, parameter :: WRF_HDF5_ERR_DIMNAME_REDEFINED = -229
  integer, parameter :: WRF_HDF5_ERR_MD_AFTER_OPEN = -230
  integer, parameter :: WRF_HDF5_ERR_CHARSTR_GT_LENDATA = -231
  integer, parameter :: WRF_HDF5_ERR_BAD_DATA_TYPE = -232
  integer, parameter :: WRF_HDF5_ERR_FILE_NOT_COMMITTED = -233
  integer, parameter :: WRF_HDF5_ERR_ALLOCATION = -2001
  integer, parameter :: WRF_HDF5_ERR_DEALLOCATION = -2002
  integer, parameter :: WRF_HDF5_ERR_BAD_FILE_STATUS = -2003
  integer, parameter :: WRF_HDF5_ERR_BAD_VARIABLE_DIM = -2004
  integer, parameter :: WRF_HDF5_ERR_MDVAR_DIM_NOT_1D = -2005
  integer, parameter :: WRF_HDF5_ERR_TOO_MANY_TIMES = -2006
  integer, parameter :: WRF_HDF5_ERR_DATA_ID_NOTFOUND = -2007
  integer, parameter :: WRF_HDF5_ERR_DATASPACE = -300
  integer, parameter :: WRF_HDF5_ERR_DATATYPE = -301
  integer, parameter :: WRF_HDF5_ERR_PROPERTY_LIST = -302
  integer, parameter :: WRF_HDF5_ERR_DATASET_CREATE = -303
  integer, parameter :: WRF_HDF5_ERR_DATASET_READ = -304
  integer, parameter :: WRF_HDF5_ERR_DATASET_WRITE = -305
  integer, parameter :: WRF_HDF5_ERR_DATASET_OPEN = -306
  integer, parameter :: WRF_HDF5_ERR_DATASET_GENERAL = -307
  integer, parameter :: WRF_HDF5_ERR_GROUP = -308
  integer, parameter :: WRF_HDF5_ERR_FILE_OPEN = -309
  integer, parameter :: WRF_HDF5_ERR_FILE_CREATE = -310
  integer, parameter :: WRF_HDF5_ERR_DATASET_CLOSE = -311
  integer, parameter :: WRF_HDF5_ERR_FILE_CLOSE = -312
  integer, parameter :: WRF_HDF5_ERR_CLOSE_GENERAL = -313
  integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_CREATE = -314
  integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_READ = -315
  integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_WRITE = -316
  integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_OPEN = -317
  integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_GENERAL = -318
  integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_CLOSE = -319
  integer, parameter :: WRF_HDF5_ERR_OTHERS = -320
  integer, parameter :: WRF_HDF5_ERR_ATTRIBUTE_OTHERS = -321
    TYPE(domain), INTENT(INOUT) :: grid
    INTEGER, INTENT(INOUT) :: ierr
END SUBROUTINE track_input