prescribed_thermal_contraction Function

  1. prescribed_salinity_eos.F90
  2. prescribed_eos_mod
  3. prescribed_thermal_contraction

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

Returns the thermal contraction coefficient.

Arguments

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

Return Value class(scalar_field), allocatable


Calls

proc~~prescribed_thermal_contraction~~CallsGraph proc~prescribed_thermal_contraction prescribed_thermal_contraction uniform_scalar_field uniform_scalar_field proc~prescribed_thermal_contraction->uniform_scalar_field

Contents

Source Code

prescribed_thermal_contraction

Source Code

  function prescribed_thermal_contraction(this, temperature, salinity) result(coef)
    !* Author: Chris MacMackin
    !  Date: June 2017
    !
    ! Returns the thermal contraction coefficient.
    !
    class(prescribed_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(0.0_r8)
  end function prescribed_thermal_contraction