solve_vel Abstract Interface

abstract interface
private subroutine solve_vel(this, basal_drag, success)

Arguments

Type IntentOptional AttributesName
class(glacier), intent(inout) :: this
class(scalar_field), intent(in) :: basal_drag

A paramter, e.g. coefficient of friction, needed to calculate the drag on basal surface of the glacier.

logical, intent(out) :: success

True if the integration is successful, false otherwise