ave_one_equation_melt_rate Function

  1. averaged_one_equation_melt.f90
  2. ave_one_equation_melt_mod
  3. ave_one_equation_melt_rate

private function ave_one_equation_melt_rate(this) result(melt)

Arguments

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

Return Value class(scalar_field), pointer

The melt rate from the ice into the plume water.


Contents

Source Code

ave_one_equation_melt_rate

Source Code

  function ave_one_equation_melt_rate(this) result(melt)
    class(ave_one_equation_melt), intent(in) :: this
    class(scalar_field), pointer         :: melt
      !! The melt rate from the ice into the plume water.
    if (.not. allocated(this%forcing_values)) error stop ('Melt values not calculated')
    melt => this%coef2 * this%forcing_values
  end function ave_one_equation_melt_rate