Detailed Description

Compute the in situ specific volume of sea water (in [m3 kg-1]), or an anomaly with respect to a reference specific volume, from salinity (in psu), potential temperature (in deg C), and pressure [Pa], using the expressions from Wright, 1997, J. Atmos. Ocean. Tech., 14, 735-740.

Definition at line 39 of file MOM_EOS_Wright.F90.

Private functions
subroutine	calculate_spec_vol_scalar_wright (T, S, pressure, specvol, spv_ref)
	This subroutine computes the in situ specific volume of sea water (specvol in [m3 kg-1]) from salinity (S [PSU]), potential temperature (T [degC]) and pressure [Pa]. It uses the expression from Wright, 1997, J. Atmos. Ocean. Tech., 14, 735-740. If spv_ref is present, specvol is an anomaly from spv_ref. More...

subroutine	calculate_spec_vol_array_wright (T, S, pressure, specvol, start, npts, spv_ref)
	This subroutine computes the in situ specific volume of sea water (specvol in [m3 kg-1]) from salinity (S [PSU]), potential temperature (T [degC]) and pressure [Pa]. It uses the expression from Wright, 1997, J. Atmos. Ocean. Tech., 14, 735-740. If spv_ref is present, specvol is an anomaly from spv_ref. More...

Functions and subroutines

◆ calculate_spec_vol_array_wright()

subroutine mom_eos_wright::calculate_spec_vol_wright::calculate_spec_vol_array_wright	(	real, dimension(:), intent(in)	T,
		real, dimension(:), intent(in)	S,
		real, dimension(:), intent(in)	pressure,
		real, dimension(:), intent(out)	specvol,
		integer, intent(in)	start,
		integer, intent(in)	npts,
		real, intent(in), optional	spv_ref
	)

private

This subroutine computes the in situ specific volume of sea water (specvol in [m3 kg-1]) from salinity (S [PSU]), potential temperature (T [degC]) and pressure [Pa]. It uses the expression from Wright, 1997, J. Atmos. Ocean. Tech., 14, 735-740. If spv_ref is present, specvol is an anomaly from spv_ref.

Parameters

[in]	t	potential temperature relative to the surface [degC].
[in]	s	salinity [PSU].
[in]	pressure	pressure [Pa].
[out]	specvol	in situ specific volume [m3 kg-1].
[in]	start	the starting point in the arrays.
[in]	npts	the number of values to calculate.
[in]	spv_ref	A reference specific volume [m3 kg-1].

Definition at line 172 of file MOM_EOS_Wright.F90.

   real, dimension(:), intent(in)  :: T        !< potential temperature relative to the
                                               !! surface [degC].
   real, dimension(:), intent(in)  :: S        !< salinity [PSU].
   real, dimension(:), intent(in)  :: pressure !< pressure [Pa].
   real, dimension(:), intent(out) :: specvol  !< in situ specific volume [m3 kg-1].
   integer,            intent(in)  :: start    !< the starting point in the arrays.
   integer,            intent(in)  :: npts     !< the number of values to calculate.
   real,     optional, intent(in)  :: spv_ref  !< A reference specific volume [m3 kg-1].
  
   ! Local variables
   real :: al0, p0, lambda
   integer :: j
  
   do j=start,start+npts-1
     al0 = (a0 + a1*t(j)) +a2*s(j)
     p0 = (b0 + b4*s(j)) + t(j) * (b1 + t(j)*((b2 + b3*t(j))) + b5*s(j))
     lambda = (c0 +c4*s(j)) + t(j) * (c1 + t(j)*((c2 + c3*t(j))) + c5*s(j))
  
     if (present(spv_ref)) then
       specvol(j) = (lambda + (al0 - spv_ref)*(pressure(j) + p0)) / (pressure(j) + p0)
     else
       specvol(j) = (lambda + al0*(pressure(j) + p0)) / (pressure(j) + p0)
     endif
   enddo

◆ calculate_spec_vol_scalar_wright()

subroutine mom_eos_wright::calculate_spec_vol_wright::calculate_spec_vol_scalar_wright	(	real, intent(in)	T,
		real, intent(in)	S,
		real, intent(in)	pressure,
		real, intent(out)	specvol,
		real, intent(in), optional	spv_ref
	)