Detailed Description

Definition at line 39 of file MOM_EOS_Wright.F90.

Private functions
subroutine	calculate_density_scalar_wright (T, S, pressure, rho)
	This subroutine computes the in situ density of sea water (rho in units of kg/m^3) from salinity (S in psu), potential temperature (T in deg C), and pressure in Pa. It uses the expression from Wright, 1997, J. Atmos. Ocean. Tech., 14, 735-740. Coded by R. Hallberg, 7/00. More...

subroutine	calculate_density_array_wright (T, S, pressure, rho, start, npts)
	This subroutine computes the in situ density of sea water (rho in units of kg/m^3) from salinity (S in psu), potential temperature (T in deg C), and pressure in Pa. It uses the expression from Wright, 1997, J. Atmos. Ocean. Tech., 14, 735-740. Coded by R. Hallberg, 7/00. More...

Functions and subroutines

◆ calculate_density_array_wright()

subroutine mom_eos_wright::calculate_density_wright::calculate_density_array_wright	(	real, dimension(:), intent(in)	T,
		real, dimension(:), intent(in)	S,
		real, dimension(:), intent(in)	pressure,
		real, dimension(:), intent(out)	rho,
		integer, intent(in)	start,
		integer, intent(in)	npts
	)

private

This subroutine computes the in situ density of sea water (rho in units of kg/m^3) from salinity (S in psu), potential temperature (T in deg C), and pressure in Pa. It uses the expression from Wright, 1997, J. Atmos. Ocean. Tech., 14, 735-740. Coded by R. Hallberg, 7/00.

Parameters

[in]	t	potential temperature relative to the surface in C.
[in]	s	salinity in PSU.
[in]	pressure	pressure in Pa.
[out]	rho	in situ density in kg m-3.
[in]	start	the starting point in the arrays.
[in]	npts	the number of values to calculate.

Definition at line 109 of file MOM_EOS_Wright.F90.

   real,    intent(in),  dimension(:) :: t        !< potential temperature relative to the surface
                                                  !! in C.
   real,    intent(in),  dimension(:) :: s        !< salinity in PSU.
   real,    intent(in),  dimension(:) :: pressure !< pressure in Pa.
   real,    intent(out), dimension(:) :: rho      !< in situ density in kg m-3.
   integer, intent(in)                :: start    !< the starting point in the arrays.
   integer, intent(in)                :: npts     !< the number of values to calculate.
 
 ! * Arguments: T - potential temperature relative to the surface in C. *
 ! *  (in)      S - salinity in PSU.                                    *
 ! *  (in)      pressure - pressure in Pa.                              *
 ! *  (out)     rho - in situ density in kg m-3.                        *
 ! *  (in)      start - the starting point in the arrays.               *
 ! *  (in)      npts - the number of values to calculate.               *
 
 ! *====================================================================*
 ! *  This subroutine computes the in situ density of sea water (rho in *
 ! *  units of kg/m^3) from salinity (S in psu), potential temperature  *
 ! *  (T in deg C), and pressure in Pa.  It uses the expression from    *
 ! *  Wright, 1997, J. Atmos. Ocean. Tech., 14, 735-740.                *
 ! *  Coded by R. Hallberg, 7/00                                        *
 ! *====================================================================*
   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))
 
     rho(j) = (pressure(j) + p0) / (lambda + al0*(pressure(j) + p0))
   enddo

◆ calculate_density_scalar_wright()

subroutine mom_eos_wright::calculate_density_wright::calculate_density_scalar_wright	(	real, intent(in)	T,
		real, intent(in)	S,
		real, intent(in)	pressure,
		real, intent(out)	rho
	)