mom_eos_teos10::calculate_density_teos10 Interface Reference

Detailed Description

Definition at line 39 of file MOM_EOS_TEOS10.F90.

Private functions
subroutine	calculate_density_scalar_teos10 (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 TEOS10 website. More...
subroutine	calculate_density_array_teos10 (T, S, pressure, rho, start, npts)

Functions and subroutines

calculate_density_array_teos10()

subroutine mom_eos_teos10::calculate_density_teos10::calculate_density_array_teos10 ( 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

Definition at line 83 of file MOM_EOS_TEOS10.F90.

  real,    intent(in),  dimension(:) :: t, s, pressure
  real,    intent(out), dimension(:) :: rho
  integer, intent(in)                :: start, npts
! * Arguments: T - conservative temperature in C.                      *
! *  (in)      S - absolute salinity in g/kg.                          *
! *  (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 absolute salinity (S in g/Kg),              *
! *  conservative temperature (T in deg C), and pressure in Pa.        *
! *  It uses the functions from TEOS10 website                         *
! *====================================================================*
  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).lt.-1.0e-10) cycle !Can we assume safely that this is a missing value?
    rho(j) = gsw_rho(zs,zt,zp)
 enddo

calculate_density_scalar_teos10()

subroutine mom_eos_teos10::calculate_density_teos10::calculate_density_scalar_teos10 ( real, intent(in)  T, real, intent(in)  S, real, intent(in)  pressure, real, intent(out)  rho  )

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 TEOS10 website.

Parameters

[in]	t	Conservative temperature in C.
[in]	s	Absolute salinity in g/kg.
[in]	pressure	Pressure in Pa.
[out]	rho	In situ density in kg m-3.

Definition at line 52 of file MOM_EOS_TEOS10.F90.

real,    intent(in)  :: t        !< Conservative temperature in C.
real,    intent(in)  :: s        !< Absolute salinity in g/kg.
real,    intent(in)  :: pressure !< Pressure in Pa.
real,    intent(out) :: rho      !< In situ density in kg m-3.
! * Arguments: T - conservative temperature in C.                      *
! *  (in)      S - absolute salinity in g/kg.                          *
! *  (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    *
! *  TEOS10 website.                                                   *
! *====================================================================*

  real, dimension(1) :: t0, s0, pressure0
  real, dimension(1) :: rho0

  t0(1) = t
  s0(1) = s
  pressure0(1) = pressure

  call calculate_density_array_teos10(t0, s0, pressure0, rho0, 1, 1)
  rho = rho0(1)

---

The documentation for this interface was generated from the following file:

• /home/adcroft/GitHub/workspace/Gaea-stats-MOM6-examples/MOM6-examples/src/MOM6/src/equation_of_state/MOM_EOS_TEOS10.F90