Dummy routine which does nothing.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
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 |
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