shelf_velocity Function

  1. ice_shelf.F90
  2. ice_shelf_mod
  3. shelf_velocity

private function shelf_velocity(this) result(velocity)

Returns the velocity of the ice shelf across its domain.

Arguments

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

Return Value class(vector_field), pointer

The ice velocity.


Contents

Source Code

shelf_velocity

Source Code

  function shelf_velocity(this) result(velocity)
    !* Author: Christopher MacMackin
    !  Date: July 2016
    !
    ! Returns the velocity of the ice shelf across its domain.
    !
    class(ice_shelf), intent(in) :: this
    class(vector_field), pointer :: velocity !! The ice velocity.
    call this%velocity%allocate_vector_field(velocity)
    velocity = this%velocity
#ifdef DEBUG
    call logger%debug('ice_shelf%velocity','Returned ice shelf velocity')
#endif
  end function shelf_velocity