asym_plume_drag_parameter Function

  1. asymmetric_plume.F90
  2. asymmetric_plume_mod
  3. asym_plume_drag_parameter

private function asym_plume_drag_parameter(this) result(drag)

Computes and returns a quantity which may be necessary to determine the frictional drag the plume exerts on the bottom of the ice shelf. The plume would actually tend to exert no drag on the bottom of the ice shelf, but this method is present so that there is a consistent interface with the ground data type.

Arguments

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

Return Value class(scalar_field), pointer

The melt rate at the base of the ice sheet.


Calls

proc~~asym_plume_drag_parameter~~CallsGraph proc~asym_plume_drag_parameter asym_plume_drag_parameter uniform_scalar_field uniform_scalar_field proc~asym_plume_drag_parameter->uniform_scalar_field

Contents

Source Code

asym_plume_drag_parameter

Source Code

  function asym_plume_drag_parameter(this) result(drag)
    !* Author: Christopher MacMackin
    !  Date: April 2016
    !
    ! Computes and returns a quantity which may be necessary to determine
    ! the frictional drag the plume exerts on the bottom of the ice
    ! shelf. The plume would actually tend to exert no drag on the bottom
    ! of the ice shelf, but this method is present so that there is a
    ! consistent interface with the [[ground(type)]] data type.
    !
    class(asym_plume), intent(in)     :: this
    class(scalar_field), pointer :: drag
      !! The melt rate at the base of the ice sheet.
    type(uniform_scalar_field) :: dummy
    call dummy%allocate_scalar_field(drag)
    drag = uniform_scalar_field(0.0_r8)
    call drag%set_temp()
#ifdef DEBUG
    call logger%debug('asym_plume%drag_parameter','Returned plume drag parameter.')
#endif
  end function asym_plume_drag_parameter