Get the value of a single column at a location
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(LT_t), | intent(in) | :: | my_lt | |||
| integer, | intent(in) | :: | col_ix | |||
| type(LT_loc_t), | intent(in) | :: | loc |
elemental function LT_get_col_at_loc(my_lt, col_ix, loc) result(col_value) type(LT_t), intent(in) :: my_lt integer, intent(in) :: col_ix type(LT_loc_t), intent(in) :: loc real(dp) :: col_value col_value = loc%low_frac * my_lt%rows_cols(loc%low_ix,& col_ix) + (1-loc%low_frac) * my_lt%rows_cols(loc%low_ix+1, col_ix) end function LT_get_col_at_loc