MOM6
Private functions | List of all members
mom_eos_linear::calculate_density_linear Interface Reference

Detailed Description

Definition at line 39 of file MOM_EOS_linear.F90.

Private functions

subroutine calculate_density_scalar_linear (T, S, pressure, rho, Rho_T0_S0, dRho_dT, dRho_dS)
 This subroutine computes the density of sea water with a trivial linear equation of state (in kg/m^3) from salinity (sal in psu), potential temperature (T in deg C), and pressure in Pa. More...
 
subroutine calculate_density_array_linear (T, S, pressure, rho, start, npts, Rho_T0_S0, dRho_dT, dRho_dS)
 This subroutine computes the density of sea water with a trivial linear equation of state (in kg/m^3) from salinity (sal in psu), potential temperature (T in deg C), and pressure in Pa. More...
 

Functions and subroutines

◆ calculate_density_array_linear()

subroutine mom_eos_linear::calculate_density_linear::calculate_density_array_linear ( 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,
real, intent(in)  Rho_T0_S0,
real, intent(in)  dRho_dT,
real, intent(in)  dRho_dS 
)
private

This subroutine computes the density of sea water with a trivial linear equation of state (in kg/m^3) from salinity (sal in psu), potential temperature (T in deg C), and pressure in Pa.

Parameters
[in]tPotential temperature relative to the surface in C.
[in]sSalinity in PSU.
[in]pressurePressure in Pa.
[out]rhoIn situ density in kg m-3.
[in]startThe starting point in the arrays.
[in]nptsThe number of values to calculate.
[in]rho_t0_s0The density at T=0, S=0, in kg m-3.
[in]drho_dsThe derivatives of density with temperature and salinity, in kg m-3 C-1 and kg m-3 psu-1.

Definition at line 83 of file MOM_EOS_linear.F90.

83  real, intent(in), dimension(:) :: t !< Potential temperature relative to the surface
84  !! in C.
85  real, intent(in), dimension(:) :: s !< Salinity in PSU.
86  real, intent(in), dimension(:) :: pressure !< Pressure in Pa.
87  real, intent(out), dimension(:) :: rho !< In situ density in kg m-3.
88  integer, intent(in) :: start !< The starting point in the arrays.
89  integer, intent(in) :: npts !< The number of values to calculate.
90  real, intent(in) :: rho_t0_s0 !< The density at T=0, S=0, in kg m-3.
91  real, intent(in) :: drho_dt, drho_ds !< The derivatives of density with
92  !! temperature and salinity, in kg m-3 C-1
93  !! and kg m-3 psu-1.
94 
95 ! * This subroutine computes the density of sea water with a trivial *
96 ! * linear equation of state (in kg/m^3) from salinity (sal in psu), *
97 ! * potential temperature (T in deg C), and pressure in Pa. *
98 ! * *
99 ! * Arguments: T - potential temperature relative to the surface in C. *
100 ! * (in) S - salinity in PSU. *
101 ! * (in) pressure - pressure in Pa. *
102 ! * (out) rho - in situ density in kg m-3. *
103 ! * (in) start - the starting point in the arrays. *
104 ! * (in) npts - the number of values to calculate. *
105 ! * (in) Rho_T0_S0 - The density at T=0, S=0, in kg m-3. *
106 ! * (in) dRho_dT - The derivatives of density with temperature *
107 ! * (in) dRho_dS - and salinity, in kg m-3 C-1 and kg m-3 psu-1. *
108  real :: al0, p0, lambda
109  integer :: j
110 
111  do j=start,start+npts-1
112  rho(j) = rho_t0_s0 + drho_dt*t(j) + drho_ds*s(j)
113  enddo

◆ calculate_density_scalar_linear()

subroutine mom_eos_linear::calculate_density_linear::calculate_density_scalar_linear ( real, intent(in)  T,
real, intent(in)  S,
real, intent(in)  pressure,
real, intent(out)  rho,
real, intent(in)  Rho_T0_S0,
real, intent(in)  dRho_dT,
real, intent(in)  dRho_dS 
)
private

This subroutine computes the density of sea water with a trivial linear equation of state (in kg/m^3) from salinity (sal in psu), potential temperature (T in deg C), and pressure in Pa.

Parameters
[in]tPotential temperature relative to the surface in C.
[in]sSalinity in PSU.
[in]pressurePressure in Pa.
[out]rhoIn situ density in kg m-3.
[in]rho_t0_s0The density at T=0, S=0, in kg m-3.
[in]drho_dtThe derivatives of density with temperature and salinity, in kg m-3 C-1 and kg m-3 psu-1.
[in]drho_dsThe derivatives of density with temperature and salinity, in kg m-3 C-1 and kg m-3 psu-1.

Definition at line 50 of file MOM_EOS_linear.F90.

50  real, intent(in) :: t !< Potential temperature relative to the surface in C.
51  real, intent(in) :: s !< Salinity in PSU.
52  real, intent(in) :: pressure !< Pressure in Pa.
53  real, intent(out) :: rho !< In situ density in kg m-3.
54  real, intent(in) :: rho_t0_s0 !< The density at T=0, S=0, in kg m-3.
55  real, intent(in) :: drho_dt !< The derivatives of density with temperature and salinity,
56  !! in kg m-3 C-1 and kg m-3 psu-1.
57  real, intent(in) :: drho_ds !< The derivatives of density with temperature and salinity,
58  !! in kg m-3 C-1 and kg m-3 psu-1.
59 
60 ! * This subroutine computes the density of sea water with a trivial *
61 ! * linear equation of state (in kg/m^3) from salinity (sal in psu), *
62 ! * potential temperature (T in deg C), and pressure in Pa. *
63 ! * *
64 ! * Arguments: T - potential temperature relative to the surface in C. *
65 ! * (in) S - salinity in PSU. *
66 ! * (in) pressure - pressure in Pa. *
67 ! * (out) rho - in situ density in kg m-3. *
68 ! * (in) start - the starting point in the arrays. *
69 ! * (in) npts - the number of values to calculate. *
70 ! * (in) Rho_T0_S0 - The density at T=0, S=0, in kg m-3. *
71 ! * (in) dRho_dT - The derivatives of density with temperature *
72 ! * (in) dRho_dS - and salinity, in kg m-3 C-1 and kg m-3 psu-1. *
73 
74  rho = rho_t0_s0 + drho_dt*t + drho_ds*s
75 
The documentation for this interface was generated from the following file: