sheet_time_step Function

  1. ice_sheet.F90
  2. ice_sheet_mod
  3. sheet_time_step

private function sheet_time_step(this) result(dt)

Calculates the time step for integrating the ice sheet, using the CFL condition.

Arguments

Type IntentOptional AttributesName
class(ice_sheet), intent(in) :: this

Return Value real(kind=r8)

The time-step to use


Contents

Source Code

sheet_time_step

Source Code

  function sheet_time_step(this) result(dt)
    !* Author: Chris MacMackin
    !  Date: December 2016
    !
    ! Calculates the time step for integrating the ice sheet, using
    ! the CFL condition.
    !
    class(ice_sheet), intent(in) :: this
    real(r8) :: dt
      !! The time-step to use
  end function sheet_time_step