Error in BMI implementation for get_grid_origin function

[mdpiper]

The implementation of the get_grid_origin function contains this block:

Snow_BMI_Fortran/snow/bmisnowf.f90

Lines 396 to 403 in c17014b

	select case(grid_id)
	case(0)
	grid_origin = [0.d0, 0.d0]
	bmi_status = BMI_SUCCESS
	case default
	grid_origin = [-1.d0]
	bmi_status = BMI_FAILURE
	end select

The matching case should be case(1) instead of case(0), since all of the exchange items listed in the get_var_grid function are assigned grid id 1.