glacier_integrate_layers Subroutine

private subroutine glacier_integrate_layers(this, old_states, time, success)

Dummy routine which does nothing.

Arguments

Type IntentOptional AttributesName
class(glacier), intent(inout) :: this
class(glacier), intent(in), dimension(:):: old_states

Previous states of the glacier, with the most recent one first.

real(kind=r8), intent(in) :: time

The time to which the glacier should be integrated

logical, intent(out) :: success

True if the integration is successful, false otherwise


Contents


Source Code

  subroutine glacier_integrate_layers(this, old_states, time, success)
    !* Author: Chris MacMackin
    !  Date: September 2018
    !
    ! Dummy routine which does nothing.
    !
    class(glacier), intent(inout)            :: this
    class(glacier), dimension(:), intent(in) :: old_states
      !! Previous states of the glacier, with the most recent one
      !! first.
    real(r8), intent(in)                     :: time
      !! The time to which the glacier should be integrated
    logical, intent(out)                     :: success
      !! True if the integration is successful, false otherwise
    continue
  end subroutine glacier_integrate_layers