shelf_temperature Function

  1. ice_shelf.F90
  2. ice_shelf_mod
  3. shelf_temperature

private pure function shelf_temperature(this) result(temperature)

Returns the density of the ice in the shelf, which is assumed to be uniform across its domain.

Arguments

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

Return Value real(kind=r8)

The ice density.


Contents

Source Code

shelf_temperature

Source Code

  pure function shelf_temperature(this) result(temperature)
    !* Author: Christopher MacMackin
    !  Date: April 2016
    !
    ! Returns the density of the ice in the shelf, which is assumed to be
    ! uniform across its domain.
    !
    class(ice_shelf), intent(in) :: this
    real(r8)                     :: temperature !! The ice density.
    temperature = -15.0_r8 !TODO: Will probably want to change this at some point.
#ifdef DEBUG
    call logger%debug('ice_shelf%temperature','Ice shelf has temperature '// &
                      trim(str(temperature)))
#endif
  end function shelf_temperature