mom_tfreeze::calculate_tfreeze_millero subroutine subroutine mom_tfreeze::calculate_tfreeze_millero::calculate_tfreeze_millero_scalar (S, pres, T_Fr) calculate_tfreeze_millero_scalar S S pres pres T_Fr T_Fr This subroutine computes the freezing point potential temperature [degC] from salinity [ppt], and pressure [Pa] using the expression from Millero (1978) (and in appendix A of Gill 1982), but with the of the pressure dependence changed from 7.53e-8 to 7.75e-8 to make this an expression for potential temperature (not in situ temperature), using a value that is correct at the freezing point at 35 PSU and 5e6 Pa (500 dbar). s Salinity in PSU. pres Pressure [Pa]. t_fr Freezing point potential temperature [degC]. subroutine subroutine mom_tfreeze::calculate_tfreeze_millero::calculate_tfreeze_millero_array (S, pres, T_Fr, start, npts) calculate_tfreeze_millero_array S S pres pres T_Fr T_Fr start start npts npts This subroutine computes the freezing point potential temperature [degC] from salinity [ppt], and pressure [Pa] using the expression from Millero (1978) (and in appendix A of Gill 1982), but with the of the pressure dependence changed from 7.53e-8 to 7.75e-8 to make this an expression for potential temperature (not in situ temperature), using a value that is correct at the freezing point at 35 PSU and 5e6 Pa (500 dbar). s Salinity [PSU]. pres Pressure [Pa]. t_fr Freezing point potential temperature [degC]. start The starting point in the arrays. npts The number of values to calculate. Compute the freezing point potential temperature [degC] from salinity [PSU] and pressure [Pa] using the expression from Millero (1978) (and in appendix A of Gill 1982), but with the of the pressure dependence changed from 7.53e-8 to 7.75e-8 to make this an expression for potential temperature (not in situ temperature), using a value that is correct at the freezing point at 35 PSU and 5e6 Pa (500 dbar). mom_tfreeze::calculate_tfreeze_millerocalculate_tfreeze_millero_array mom_tfreeze::calculate_tfreeze_millerocalculate_tfreeze_millero_scalar