mom_eos_unesco mom_eos_unesco::calculate_density_unesco mom_eos_unesco::calculate_spec_vol_unesco real, parameter real, parameter mom_eos_unesco::r00 r00 = 999.842594 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r10 r10 = 6.793952e-2 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r20 r20 = -9.095290e-3 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r30 r30 = 1.001685e-4 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r40 r40 = -1.120083e-6 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r50 r50 = 6.536332e-9 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r01 r01 = 0.824493 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r11 r11 = -4.0899e-3 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r21 r21 = 7.6438e-5 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r31 r31 = -8.2467e-7 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r41 r41 = 5.3875e-9 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r032 r032 = -5.72466e-3 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r132 r132 = 1.0227e-4 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r232 r232 = -1.6546e-6 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::r02 r02 = 4.8314e-4 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::s00 s00 = 1.965933e4 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::s10 s10 = 1.444304e2 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::s20 s20 = -1.706103 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::s30 s30 = 9.648704e-3 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::s40 s40 = -4.190253e-5 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::s01 s01 = 52.84855 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::s11 s11 = -3.101089e-1 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::s21 s21 = 6.283263e-3 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::s31 s31 = -5.084188e-5 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::s032 s032 = 3.886640e-1 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::s132 s132 = 9.085835e-3 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::s232 s232 = -4.619924e-4 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp00 sp00 = 3.186519 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp10 sp10 = 2.212276e-2 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp20 sp20 = -2.984642e-4 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp30 sp30 = 1.956415e-6 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp01 sp01 = 6.704388e-3 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp11 sp11 = -1.847318e-4 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp21 sp21 = 2.059331e-7 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp032 sp032 = 1.480266e-4 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp000 sp000 = 2.102898e-4 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp010 sp010 = -1.202016e-5 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp020 sp020 = 1.394680e-7 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp001 sp001 = -2.040237e-6 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp011 sp011 = 6.128773e-8 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco real, parameter real, parameter mom_eos_unesco::sp021 sp021 = 6.207323e-10 Parameters in the UNESCO equation of state. calculate_compress_unesco calculate_density_array_unesco calculate_density_derivs_unesco calculate_spec_vol_array_unesco subroutine, public subroutine, public mom_eos_unesco::calculate_density_scalar_unesco (T, S, pressure, rho, rho_ref) calculate_density_scalar_unesco 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], using the UNESCO (1981) equation of state. 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]. calculate_density_array_unesco subroutine, public subroutine, public mom_eos_unesco::calculate_density_array_unesco (T, S, pressure, rho, start, npts, rho_ref) calculate_density_array_unesco 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], using the UNESCO (1981) equation of state. 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]. r00 r01 r02 r032 r10 r11 r132 r20 r21 r232 r30 r31 r40 r41 r50 s00 s01 s032 s10 s11 s132 s20 s21 s232 s30 s31 s40 sp00 sp000 sp001 sp01 sp010 sp011 sp020 sp021 sp032 sp10 sp11 sp20 sp21 sp30 calculate_density_scalar_unesco subroutine subroutine mom_eos_unesco::calculate_spec_vol_scalar_unesco (T, S, pressure, specvol, spv_ref) calculate_spec_vol_scalar_unesco T T S S pressure pressure specvol specvol spv_ref 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], using the UNESCO (1981) equation of state. If spv_ref is present, specvol is an anomaly from spv_ref. t potential temperature relative to the surface [degC]. s salinity [PSU]. pressure pressure [Pa]. specvol in situ specific volume [m3 kg-1]. spv_ref A reference specific volume [m3 kg-1]. calculate_spec_vol_array_unesco subroutine subroutine mom_eos_unesco::calculate_spec_vol_array_unesco (T, S, pressure, specvol, start, npts, spv_ref) calculate_spec_vol_array_unesco T T S S pressure pressure specvol specvol start start npts npts spv_ref 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], using the UNESCO (1981) equation of state. If spv_ref is present, specvol is an anomaly from spv_ref. t potential temperature relative to the surface [degC]. s salinity [PSU]. pressure pressure [Pa]. specvol in situ specific volume [m3 kg-1]. start the starting point in the arrays. npts the number of values to calculate. spv_ref A reference specific volume [m3 kg-1]. r00 r01 r02 r032 r10 r11 r132 r20 r21 r232 r30 r31 r40 r41 r50 s00 s01 s032 s10 s11 s132 s20 s21 s232 s30 s31 s40 sp00 sp000 sp001 sp01 sp010 sp011 sp020 sp021 sp032 sp10 sp11 sp20 sp21 sp30 calculate_spec_vol_scalar_unesco subroutine, public subroutine, public mom_eos_unesco::calculate_density_derivs_unesco (T, S, pressure, drho_dT, drho_dS, start, npts) calculate_density_derivs_unesco T T S S pressure pressure drho_dT drho_dT drho_dS drho_dS start start npts npts This subroutine calculates the partial derivatives of density with potential temperature and salinity. t Potential temperature relative to the surface [degC]. s Salinity [PSU]. pressure Pressure [Pa]. drho_dt The partial derivative of density with potential temperature [kg m-3 degC-1]. drho_ds The partial derivative of density with salinity, in [kg m-3 PSU-1]. start The starting point in the arrays. npts The number of values to calculate. r00 r01 r02 r032 r10 r11 r132 r20 r21 r232 r30 r31 r40 r41 r50 s00 s01 s032 s10 s11 s132 s20 s21 s232 s30 s31 s40 sp00 sp000 sp001 sp01 sp010 sp011 sp020 sp021 sp032 sp10 sp11 sp20 sp21 sp30 subroutine, public subroutine, public mom_eos_unesco::calculate_compress_unesco (T, S, pressure, rho, drho_dp, start, npts) calculate_compress_unesco T T S S pressure pressure rho rho drho_dp drho_dp start start npts npts This subroutine computes the in situ density of sea water (rho) and the compressibility (drho/dp == C_sound^-2) at the given salinity, potential temperature, and pressure. t Potential temperature relative to the surface [degC]. s Salinity [PSU]. pressure Pressure [Pa]. rho In situ density [kg m-3]. drho_dp The partial derivative of density with pressure (also the inverse of the square of sound speed) [s2 m-2]. start The starting point in the arrays. npts The number of values to calculate. r00 r01 r02 r032 r10 r11 r132 r20 r21 r232 r30 r31 r40 r41 r50 s00 s01 s032 s10 s11 s132 s20 s21 s232 s30 s31 s40 sp00 sp000 sp001 sp01 sp010 sp011 sp020 sp021 sp032 sp10 sp11 sp20 sp21 sp30 mom_eos::calculate_compress_array The equation of state using the Jackett and McDougall fits to the UNESCO EOS.