linear_haline_contraction Function

  1. linear_eos.F90
  2. linear_eos_mod
  3. linear_haline_contraction

private function linear_haline_contraction(this, temperature, salinity) result(coef)

Returns the haline contraction coefficient.

Arguments

Type IntentOptional AttributesName
class(linear_eos), intent(in) :: this
class(scalar_field), intent(in) :: temperature
class(scalar_field), intent(in) :: salinity

Return Value class(scalar_field), allocatable


Calls

proc~~linear_haline_contraction~~CallsGraph proc~linear_haline_contraction linear_haline_contraction uniform_scalar_field uniform_scalar_field proc~linear_haline_contraction->uniform_scalar_field

Contents

Source Code

linear_haline_contraction

Source Code

  function linear_haline_contraction(this, temperature, salinity) result(coef)
    !* Author: Chris MacMackin
    !  Date: June 2017
    !
    ! Returns the haline contraction coefficient.
    !
    class(linear_eos), intent(in)    :: this
    class(scalar_field), intent(in)  :: temperature
    class(scalar_field), intent(in)  :: salinity
    class(scalar_field), allocatable :: coef
    allocate(uniform_scalar_field :: coef)
    coef = uniform_scalar_field(this%ref_rho*this%beta_s)
  end function linear_haline_contraction