shelf_thickness Function

  1. ice_shelf.F90
  2. ice_shelf_mod
  3. shelf_thickness

private function shelf_thickness(this) result(thickness)

Returns the thickness of the ice shelf across its domain.

Arguments

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

Return Value class(scalar_field), pointer

The ice thickness.


Contents

Source Code

shelf_thickness

Source Code

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