mom_eos_wright::calculate_density_wright subroutine subroutine mom_eos_wright::calculate_density_wright::calculate_density_scalar_wright (T, S, pressure, rho, rho_ref) calculate_density_scalar_wright T T S S pressure pressure rho rho rho_ref rho_ref This subroutine computes the in situ density of sea water (rho in [kg m-3]) 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. t Potential temperature relative to the surface [degC]. s Salinity [PSU]. pressure pressure [Pa]. rho In situ density [kg m-3]. rho_ref A reference density [kg m-3]. subroutine subroutine mom_eos_wright::calculate_density_wright::calculate_density_array_wright (T, S, pressure, rho, start, npts, rho_ref) calculate_density_array_wright T T S S pressure pressure rho rho start start npts npts rho_ref rho_ref This subroutine computes the in situ density of sea water (rho in [kg m-3]) 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. t potential temperature relative to the surface [degC]. s salinity [PSU]. pressure pressure [Pa]. rho in situ density [kg m-3]. start the starting point in the arrays. npts the number of values to calculate. rho_ref A reference density [kg m-3]. Compute the in situ density of sea water (in [kg m-3]), or its anomaly with respect to a reference density, 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. mom_eos_wright::calculate_density_wrightcalculate_density_array_wright mom_eos_wright::calculate_density_wrightcalculate_density_scalar_wright