mom_eos::calculate_compress Interface Reference

Detailed Description

Calculates the compressibility of water from T, S, and P.

Definition at line 86 of file MOM_EOS.F90.

Private functions
subroutine	calculate_compress_scalar (T, S, pressure, rho, drho_dp, EOS)
	Calculate density and compressibility for a scalar. This just promotes the scalar to an array with a singleton dimension and calls calculate_compress_array. More...
subroutine	calculate_compress_array (T, S, pressure, rho, drho_dp, start, npts, EOS)
	Calls the appropriate subroutine to calculate the density and compressibility for 1-D array inputs. More...

Functions and subroutines

calculate_compress_array()

subroutine mom_eos::calculate_compress::calculate_compress_array ( real, dimension(:), intent(in)  T, real, dimension(:), intent(in)  S, real, dimension(:), intent(in)  pressure, real, dimension(:), intent(out)  rho, real, dimension(:), intent(out)  drho_dp, integer, intent(in)  start, integer, intent(in)  npts, type(eos_type), pointer  EOS  )

private

Calls the appropriate subroutine to calculate the density and compressibility for 1-D array inputs.

Parameters

[in]	t	Potential temperature referenced to the surface [degC]
[in]	s	Salinity [PSU]
[in]	pressure	Pressure [Pa]
[out]	rho	In situ density [kg m-3].
[out]	drho_dp	The partial derivative of density with pressure (also the inverse of the square of sound speed) [s2 m-2].
[in]	start	Starting index within the array
[in]	npts	The number of values to calculate
	eos	Equation of state structure

Definition at line 603 of file MOM_EOS.F90.

  real, dimension(:), intent(in)  :: T        !< Potential temperature referenced to the surface [degC]
  real, dimension(:), intent(in)  :: S        !< Salinity [PSU]
  real, dimension(:), intent(in)  :: pressure !< Pressure [Pa]
  real, dimension(:), intent(out) :: rho      !< In situ density [kg m-3].
  real, dimension(:), intent(out) :: drho_dp   !< The partial derivative of density with pressure
                                     !! (also the inverse of the square of sound speed) [s2 m-2].
  integer,            intent(in)  :: start    !< Starting index within the array
  integer,            intent(in)  :: npts     !< The number of values to calculate
  type(EOS_type),     pointer     :: EOS      !< Equation of state structure
 
  if (.not.associated(eos)) call mom_error(fatal, &
    "calculate_compress called with an unassociated EOS_type EOS.")
 
  select case (eos%form_of_EOS)
    case (eos_linear)
      call calculate_compress_linear(t, s, pressure, rho, drho_dp, start, npts, &
                                     eos%Rho_T0_S0, eos%dRho_dT, eos%dRho_dS)
    case (eos_unesco)
      call calculate_compress_unesco(t, s, pressure, rho, drho_dp, start, npts)
    case (eos_wright)
      call calculate_compress_wright(t, s, pressure, rho, drho_dp, start, npts)
    case (eos_teos10)
      call calculate_compress_teos10(t, s, pressure, rho, drho_dp, start, npts)
    case (eos_nemo)
      call calculate_compress_nemo(t, s, pressure, rho, drho_dp, start, npts)
    case default
      call mom_error(fatal, &
           "calculate_compress: EOS%form_of_EOS is not valid.")
  end select
 

calculate_compress_scalar()

subroutine mom_eos::calculate_compress::calculate_compress_scalar ( real, intent(in)  T, real, intent(in)  S, real, intent(in)  pressure, real, intent(out)  rho, real, intent(out)  drho_dp, type(eos_type), pointer  EOS  )

private

Calculate density and compressibility for a scalar. This just promotes the scalar to an array with a singleton dimension and calls calculate_compress_array.

Parameters

[in]	t	Potential temperature referenced to the surface (degC)
[in]	s	Salinity (PSU)
[in]	pressure	Pressure (Pa)
[out]	rho	In situ density in kg m-3.
[out]	drho_dp	The partial derivative of density with pressure (also the inverse of the square of sound speed) in s2 m-2.
	eos	Equation of state structure

Definition at line 638 of file MOM_EOS.F90.

  real, intent(in)        :: T        !< Potential temperature referenced to the surface (degC)
  real, intent(in)        :: S        !< Salinity (PSU)
  real, intent(in)        :: pressure !< Pressure (Pa)
  real, intent(out)       :: rho      !< In situ density in kg m-3.
  real, intent(out)       :: drho_dp  !< The partial derivative of density with pressure
                                      !! (also the inverse of the square of sound speed) in s2 m-2.
  type(EOS_type), pointer :: EOS      !< Equation of state structure
 
  real, dimension(1) :: Ta, Sa, pa, rhoa, drho_dpa
 
  if (.not.associated(eos)) call mom_error(fatal, &
    "calculate_compress called with an unassociated EOS_type EOS.")
  ta(1) = t ; sa(1) = s; pa(1) = pressure
 
  call calculate_compress_array(ta, sa, pa, rhoa, drho_dpa, 1, 1, eos)
  rho = rhoa(1) ; drho_dp = drho_dpa(1)
 

---

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

• /glade/work/altuntas/cesm.sandboxes/cesm2_2_alpha_X_mom/components/mom/MOM6/src/equation_of_state/MOM_EOS.F90