Detailed Description

For a given thermodynamic state, return the derivatives of density with conservative temperature and absolute salinity, using the TEOS10 expressions.

Definition at line 41 of file MOM_EOS_TEOS10.F90.

Private functions
subroutine	calculate_density_derivs_scalar_teos10 (T, S, pressure, drho_dT, drho_dS)
	For a given thermodynamic state, calculate the derivatives of density with conservative temperature and absolute salinity, using the TEOS10 expressions. More...

subroutine	calculate_density_derivs_array_teos10 (T, S, pressure, drho_dT, drho_dS, start, npts)
	For a given thermodynamic state, calculate the derivatives of density with conservative temperature and absolute salinity, using the TEOS10 expressions. More...

Functions and subroutines

◆ calculate_density_derivs_array_teos10()

subroutine mom_eos_teos10::calculate_density_derivs_teos10::calculate_density_derivs_array_teos10	(	real, dimension(:), intent(in)	T,
		real, dimension(:), intent(in)	S,
		real, dimension(:), intent(in)	pressure,
		real, dimension(:), intent(out)	drho_dT,
		real, dimension(:), intent(out)	drho_dS,
		integer, intent(in)	start,
		integer, intent(in)	npts
	)

private

For a given thermodynamic state, calculate the derivatives of density with conservative temperature and absolute salinity, using the TEOS10 expressions.

Parameters

[in]	t	Conservative temperature [degC].
[in]	s	Absolute salinity [g kg-1].
[in]	pressure	pressure [Pa].
[out]	drho_dt	The partial derivative of density with conservative temperature [kg m-3 degC-1].
[out]	drho_ds	The partial derivative of density with absolute salinity, [kg m-3 (g/kg)-1].
[in]	start	The starting point in the arrays.
[in]	npts	The number of values to calculate.

Definition at line 169 of file MOM_EOS_TEOS10.F90.

   real,    intent(in),  dimension(:) :: T        !< Conservative temperature [degC].
   real,    intent(in),  dimension(:) :: S        !< Absolute salinity [g kg-1].
   real,    intent(in),  dimension(:) :: pressure !< pressure [Pa].
   real,    intent(out), dimension(:) :: drho_dT  !< The partial derivative of density with conservative
                                                  !! temperature [kg m-3 degC-1].
   real,    intent(out), dimension(:) :: drho_dS  !< The partial derivative of density with absolute salinity,
                                                  !! [kg m-3 (g/kg)-1].
   integer, intent(in)                :: start    !< The starting point in the arrays.
   integer, intent(in)                :: npts     !< The number of values to calculate.
  
   ! Local variables
   real :: zs, zt, zp
   integer :: j
  
   do j=start,start+npts-1
     !Conversions
     zs = s(j) !gsw_sr_from_sp(S(j))       !Convert practical salinity to absolute salinity
     zt = t(j) !gsw_ct_from_pt(S(j),T(j))  !Convert potantial temp to conservative temp
     zp = pressure(j)* pa2db         !Convert pressure from Pascal to decibar
     if (s(j) < -1.0e-10) then ; !Can we assume safely that this is a missing value?
       drho_dt(j) = 0.0 ; drho_ds(j) = 0.0
     else
       call gsw_rho_first_derivatives(zs, zt, zp, drho_dsa=drho_ds(j), drho_dct=drho_dt(j))
     endif
   enddo
  

◆ calculate_density_derivs_scalar_teos10()

subroutine mom_eos_teos10::calculate_density_derivs_teos10::calculate_density_derivs_scalar_teos10	(	real, intent(in)	T,
		real, intent(in)	S,
		real, intent(in)	pressure,
		real, intent(out)	drho_dT,
		real, intent(out)	drho_dS
	)