The implementation of the get_grid_origin function contains this block:
|
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.
The implementation of the get_grid_origin function contains this block:
Snow_BMI_Fortran/snow/bmisnowf.f90
Lines 396 to 403 in c17014b
The matching case should be
case(1)instead ofcase(0), since all of the exchange items listed in the get_var_grid function are assigned grid id 1.