time_step Function

  1. cryosphere.F90
  2. cryosphere_mod
  3. time_step

private function time_step(this)

Calculates an appropriate time step with which to integrate the cryosphere so as not to cause numerical instability.

Arguments

Type IntentOptional AttributesName
class(cryosphere), intent(inout) :: this

Return Value real(kind=r8)


Contents

Source Code

time_step

Source Code

  function time_step(this)
    !* Author: Chris MacMackin
    !  Date: December 2016
    !
    ! Calculates an appropriate time step with which to integrate the
    ! cryosphere so as not to cause numerical instability.
    !
    class(cryosphere), intent(inout) :: this
    real(r8) :: time_step
    time_step = this%dt_factor*this%ice%time_step()
  end function time_step