data_factory: possible initialization error for constant landuse case

[smwesten-usgs]

Assigning a constant landuse is not particularly useful, except for creating 'toy' test cases. Below is a file that makes use of a constant landuse code; it triggers an error. It appears that the landuse index value is not initialized in this case.

SWB Input

GRID 1 1 2165054. 255067. 161.1
GRID_LENGTH_UNITS FEET
GROWING_SEASON 133 268 T
SUPPRESS_SCREEN_OUTPUT 
OUTPUT_FUTURE_PATH 
OUTPUT_PATH 
INITIAL_ABSTRACTION_METHOD HAWKINS
PRECIPITATION SINGLE_STATION
TEMPERATURE SINGLE_STATION
FLOW_DIRECTION CONSTANT 1
SOIL_GROUP CONSTANT 1
LAND_USE CONSTANT 1
LAND_USE_LOOKUP_TABLE LU_LOOKUP_single_cell.txt
WATER_CAPACITY CONSTANT 3.0
INITIAL_SOIL_MOISTURE CONSTANT 100
INITIAL_SNOW_COVER CONSTANT 0
RUNOFF C-N DOWNHILL
ET T-M 43
SM T-M EQUATIONS
SOLVE Coshocton_Climate_1999.txt test_ future_ T T
EOJ

Resulting error message

At line 3104 of file /Users/smwesten/SMWData/Source_Code/swb/src/model.F90
Fortran runtime error: Index '2104165472' of dimension 1 of array 'pconfig%lu' 
above upper bound of 1