linear_thermal_contraction Function

  1. averaged_linear_eos.F90
  2. ave_linear_eos_mod
  3. linear_thermal_contraction

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

Returns the thermal contraction coefficient.

Arguments

Type IntentOptional AttributesName
class(ave_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_thermal_contraction~2~~CallsGraph proc~linear_thermal_contraction~2 linear_thermal_contraction uniform_scalar_field uniform_scalar_field proc~linear_thermal_contraction~2->uniform_scalar_field

Contents

Source Code

linear_thermal_contraction

Source Code

  function linear_thermal_contraction(this, temperature, salinity) result(coef)
    !* Author: Chris MacMackin
    !  Date: August 2018
    !
    ! Returns the thermal contraction coefficient.
    !
    class(ave_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_t)
  end function linear_thermal_contraction