Detailed Description

The equation of state using the expressions of Roquet et al. that are used in NEMO.

Data Types
interface	calculate_density_derivs_nemo
	For a given thermodynamic state, return the derivatives of density with conservative temperature and absolute salinity, the expressions derived for use with NEMO. More...

interface	calculate_density_nemo
	Compute the in situ density of sea water ([kg m-3]), or its anomaly with respect to a reference density, from absolute salinity (g/kg), conservative temperature (in deg C), and pressure [Pa], using the expressions derived for use with NEMO. More...

Variables
real, parameter	pa2db = 1.e-4
	Conversion factor between Pa and dbar. More...

real, parameter	rdeltas = 32.
	Parameters in the NEMO equation of state. More...

real, parameter	r1_s0 = 0.875/35.16504
	Parameters in the NEMO equation of state. More...

real, parameter	r1_t0 = 1./40.
	Parameters in the NEMO equation of state. More...

real, parameter	r1_p0 = 1.e-4
	Parameters in the NEMO equation of state. More...

real, parameter	r00 = 4.6494977072e+01
	Parameters in the NEMO equation of state. More...

real, parameter	r01 = -5.2099962525
	Parameters in the NEMO equation of state. More...

real, parameter	r02 = 2.2601900708e-01
	Parameters in the NEMO equation of state. More...

real, parameter	r03 = 6.4326772569e-02
	Parameters in the NEMO equation of state. More...

real, parameter	r04 = 1.5616995503e-02
	Parameters in the NEMO equation of state. More...

real, parameter	r05 = -1.7243708991e-03
	Parameters in the NEMO equation of state. More...

real, parameter	eos000 = 8.0189615746e+02
	Parameters in the NEMO equation of state. More...

real, parameter	eos100 = 8.6672408165e+02
	Parameters in the NEMO equation of state. More...

real, parameter	eos200 = -1.7864682637e+03
	Parameters in the NEMO equation of state. More...

real, parameter	eos300 = 2.0375295546e+03
	Parameters in the NEMO equation of state. More...

real, parameter	eos400 = -1.2849161071e+03
	Parameters in the NEMO equation of state. More...

real, parameter	eos500 = 4.3227585684e+02
	Parameters in the NEMO equation of state. More...

real, parameter	eos600 = -6.0579916612e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos010 = 2.6010145068e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos110 = -6.5281885265e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos210 = 8.1770425108e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos310 = -5.6888046321e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos410 = 1.7681814114e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos510 = -1.9193502195
	Parameters in the NEMO equation of state. More...

real, parameter	eos020 = -3.7074170417e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos120 = 6.1548258127e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos220 = -6.0362551501e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos320 = 2.9130021253e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos420 = -5.4723692739
	Parameters in the NEMO equation of state. More...

real, parameter	eos030 = 2.1661789529e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos130 = -3.3449108469e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos230 = 1.9717078466e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos330 = -3.1742946532
	Parameters in the NEMO equation of state. More...

real, parameter	eos040 = -8.3627885467
	Parameters in the NEMO equation of state. More...

real, parameter	eos140 = 1.1311538584e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos240 = -5.3563304045
	Parameters in the NEMO equation of state. More...

real, parameter	eos050 = 5.4048723791e-01
	Parameters in the NEMO equation of state. More...

real, parameter	eos150 = 4.8169980163e-01
	Parameters in the NEMO equation of state. More...

real, parameter	eos060 = -1.9083568888e-01
	Parameters in the NEMO equation of state. More...

real, parameter	eos001 = 1.9681925209e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos101 = -4.2549998214e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos201 = 5.0774768218e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos301 = -3.0938076334e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos401 = 6.6051753097
	Parameters in the NEMO equation of state. More...

real, parameter	eos011 = -1.3336301113e+01
	Parameters in the NEMO equation of state. More...

real, parameter	eos111 = -4.4870114575
	Parameters in the NEMO equation of state. More...

real, parameter	eos211 = 5.0042598061
	Parameters in the NEMO equation of state. More...

real, parameter	eos311 = -6.5399043664e-01
	Parameters in the NEMO equation of state. More...

real, parameter	eos021 = 6.7080479603
	Parameters in the NEMO equation of state. More...

real, parameter	eos121 = 3.5063081279
	Parameters in the NEMO equation of state. More...

real, parameter	eos221 = -1.8795372996
	Parameters in the NEMO equation of state. More...

real, parameter	eos031 = -2.4649669534
	Parameters in the NEMO equation of state. More...

real, parameter	eos131 = -5.5077101279e-01
	Parameters in the NEMO equation of state. More...

real, parameter	eos041 = 5.5927935970e-01
	Parameters in the NEMO equation of state. More...

real, parameter	eos002 = 2.0660924175
	Parameters in the NEMO equation of state. More...

real, parameter	eos102 = -4.9527603989
	Parameters in the NEMO equation of state. More...

real, parameter	eos202 = 2.5019633244
	Parameters in the NEMO equation of state. More...

real, parameter	eos012 = 2.0564311499
	Parameters in the NEMO equation of state. More...

real, parameter	eos112 = -2.1311365518e-01
	Parameters in the NEMO equation of state. More...

real, parameter	eos022 = -1.2419983026
	Parameters in the NEMO equation of state. More...

real, parameter	eos003 = -2.3342758797e-02
	Parameters in the NEMO equation of state. More...

real, parameter	eos103 = -1.8507636718e-02
	Parameters in the NEMO equation of state. More...

real, parameter	eos013 = 3.7969820455e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp000 = -6.5025362670e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp100 = 1.6320471316
	Parameters in the NEMO equation of state. More...

real, parameter	alp200 = -2.0442606277
	Parameters in the NEMO equation of state. More...

real, parameter	alp300 = 1.4222011580
	Parameters in the NEMO equation of state. More...

real, parameter	alp400 = -4.4204535284e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp500 = 4.7983755487e-02
	Parameters in the NEMO equation of state. More...

real, parameter	alp010 = 1.8537085209
	Parameters in the NEMO equation of state. More...

real, parameter	alp110 = -3.0774129064
	Parameters in the NEMO equation of state. More...

real, parameter	alp210 = 3.0181275751
	Parameters in the NEMO equation of state. More...

real, parameter	alp310 = -1.4565010626
	Parameters in the NEMO equation of state. More...

real, parameter	alp410 = 2.7361846370e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp020 = -1.6246342147
	Parameters in the NEMO equation of state. More...

real, parameter	alp120 = 2.5086831352
	Parameters in the NEMO equation of state. More...

real, parameter	alp220 = -1.4787808849
	Parameters in the NEMO equation of state. More...

real, parameter	alp320 = 2.3807209899e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp030 = 8.3627885467e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp130 = -1.1311538584
	Parameters in the NEMO equation of state. More...

real, parameter	alp230 = 5.3563304045e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp040 = -6.7560904739e-02
	Parameters in the NEMO equation of state. More...

real, parameter	alp140 = -6.0212475204e-02
	Parameters in the NEMO equation of state. More...

real, parameter	alp050 = 2.8625353333e-02
	Parameters in the NEMO equation of state. More...

real, parameter	alp001 = 3.3340752782e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp101 = 1.1217528644e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp201 = -1.2510649515e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp301 = 1.6349760916e-02
	Parameters in the NEMO equation of state. More...

real, parameter	alp011 = -3.3540239802e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp111 = -1.7531540640e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp211 = 9.3976864981e-02
	Parameters in the NEMO equation of state. More...

real, parameter	alp021 = 1.8487252150e-01
	Parameters in the NEMO equation of state. More...

real, parameter	alp121 = 4.1307825959e-02
	Parameters in the NEMO equation of state. More...

real, parameter	alp031 = -5.5927935970e-02
	Parameters in the NEMO equation of state. More...

real, parameter	alp002 = -5.1410778748e-02
	Parameters in the NEMO equation of state. More...

real, parameter	alp102 = 5.3278413794e-03
	Parameters in the NEMO equation of state. More...

real, parameter	alp012 = 6.2099915132e-02
	Parameters in the NEMO equation of state. More...

real, parameter	alp003 = -9.4924551138e-03
	Parameters in the NEMO equation of state. More...

real, parameter	bet000 = 1.0783203594e+01
	Parameters in the NEMO equation of state. More...

real, parameter	bet100 = -4.4452095908e+01
	Parameters in the NEMO equation of state. More...

real, parameter	bet200 = 7.6048755820e+01
	Parameters in the NEMO equation of state. More...

real, parameter	bet300 = -6.3944280668e+01
	Parameters in the NEMO equation of state. More...

real, parameter	bet400 = 2.6890441098e+01
	Parameters in the NEMO equation of state. More...

real, parameter	bet500 = -4.5221697773
	Parameters in the NEMO equation of state. More...

real, parameter	bet010 = -8.1219372432e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet110 = 2.0346663041
	Parameters in the NEMO equation of state. More...

real, parameter	bet210 = -2.1232895170
	Parameters in the NEMO equation of state. More...

real, parameter	bet310 = 8.7994140485e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet410 = -1.1939638360e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet020 = 7.6574242289e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet120 = -1.5019813020
	Parameters in the NEMO equation of state. More...

real, parameter	bet220 = 1.0872489522
	Parameters in the NEMO equation of state. More...

real, parameter	bet320 = -2.7233429080e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet030 = -4.1615152308e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet130 = 4.9061350869e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet230 = -1.1847737788e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet040 = 1.4073062708e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet140 = -1.3327978879e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet050 = 5.9929880134e-03
	Parameters in the NEMO equation of state. More...

real, parameter	bet001 = -5.2937873009e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet101 = 1.2634116779
	Parameters in the NEMO equation of state. More...

real, parameter	bet201 = -1.1547328025
	Parameters in the NEMO equation of state. More...

real, parameter	bet301 = 3.2870876279e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet011 = -5.5824407214e-02
	Parameters in the NEMO equation of state. More...

real, parameter	bet111 = 1.2451933313e-01
	Parameters in the NEMO equation of state. More...

real, parameter	bet211 = -2.4409539932e-02
	Parameters in the NEMO equation of state. More...

real, parameter	bet021 = 4.3623149752e-02
	Parameters in the NEMO equation of state. More...

real, parameter	bet121 = -4.6767901790e-02
	Parameters in the NEMO equation of state. More...

real, parameter	bet031 = -6.8523260060e-03
	Parameters in the NEMO equation of state. More...

real, parameter	bet002 = -6.1618945251e-02
	Parameters in the NEMO equation of state. More...

real, parameter	bet102 = 6.2255521644e-02
	Parameters in the NEMO equation of state. More...

real, parameter	bet012 = -2.6514181169e-03
	Parameters in the NEMO equation of state. More...

real, parameter	bet003 = -2.3025968587e-04
	Parameters in the NEMO equation of state. More...

subroutine, public	calculate_density_scalar_nemo (T, S, pressure, rho, rho_ref)
	This subroutine computes the in situ density of sea water (rho in [kg m-3]) from absolute salinity (S [g kg-1]), conservative temperature (T [degC]), and pressure [Pa]. It uses the expressions derived for use with NEMO. More...

subroutine, public	calculate_density_array_nemo (T, S, pressure, rho, start, npts, rho_ref)
	This subroutine computes the in situ density of sea water (rho in [kg m-3]) from absolute salinity (S [g kg-1]), conservative temperature (T [degC]), and pressure [Pa]. It uses the expressions derived for use with NEMO. More...

subroutine	calculate_density_derivs_array_nemo (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 expressions derived for use with NEMO. More...

subroutine	calculate_density_derivs_scalar_nemo (T, S, pressure, drho_dt, drho_ds)
	Wrapper to calculate_density_derivs_array for scalar inputs. More...

subroutine, public	calculate_compress_nemo (T, S, pressure, rho, drho_dp, start, npts)
	Compute the in situ density of sea water (rho in [kg m-3]) and the compressibility (drho/dp = C_sound^-2, stored as drho_dp [s2 m-2]) from absolute salinity (sal in g/kg), conservative temperature (T [degC]), and pressure [Pa], using the expressions derived for use with NEMO. More...

Function/Subroutine Documentation

◆ calculate_compress_nemo()

subroutine, public mom_eos_nemo::calculate_compress_nemo	(	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
	)

Compute the in situ density of sea water (rho in [kg m-3]) and the compressibility (drho/dp = C_sound^-2, stored as drho_dp [s2 m-2]) from absolute salinity (sal in g/kg), conservative temperature (T [degC]), and pressure [Pa], using the expressions derived for use with NEMO.

Parameters

[in]	t	Conservative temperature [degC].
[in]	s	Absolute salinity [g/kg].
[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	The starting point in the arrays.
[in]	npts	The number of values to calculate.

Definition at line 369 of file MOM_EOS_NEMO.F90.

   real,    intent(in),  dimension(:) :: T        !< Conservative temperature [degC].
   real,    intent(in),  dimension(:) :: S        !< Absolute salinity [g/kg].
   real,    intent(in),  dimension(:) :: pressure !< pressure [Pa].
   real,    intent(out), dimension(:) :: rho      !< In situ density [kg m-3].
   real,    intent(out), dimension(:) :: 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    !< The starting point in the arrays.
   integer, intent(in)                :: npts     !< The number of values to calculate.
  
   ! Local variables
   real ::  zs,zt,zp
   integer :: j
  
   call calculate_density_array_nemo(t, s, pressure, rho, start, npts)
   !
   !NOTE: The following calculates the TEOS10 approximation to compressibility
   !      since the corresponding NEMO approximation is not available yet.
   !
   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
     call gsw_rho_first_derivatives(zs,zt,zp, drho_dp=drho_dp(j))
  enddo

References calculate_density_array_nemo(), and pa2db.

Referenced by mom_eos::calculate_compress_array().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ calculate_density_array_nemo()

subroutine, public mom_eos_nemo::calculate_density_array_nemo	(	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), optional	rho_ref
	)

This subroutine computes the in situ density of sea water (rho in [kg m-3]) from absolute salinity (S [g kg-1]), conservative temperature (T [degC]), and pressure [Pa]. It uses the expressions derived for use with NEMO.

Parameters

[in]	t	Conservative temperature [degC].
[in]	s	Absolute salinity [g kg-1].
[in]	pressure	pressure [Pa].
[out]	rho	in situ density [kg m-3].
[in]	start	the starting point in the arrays.
[in]	npts	the number of values to calculate.
[in]	rho_ref	A reference density [kg m-3].

Definition at line 206 of file MOM_EOS_NEMO.F90.

   real, dimension(:), intent(in)  :: T        !< Conservative temperature [degC].
   real, dimension(:), intent(in)  :: S        !< Absolute salinity [g kg-1].
   real, dimension(:), intent(in)  :: pressure !< pressure [Pa].
   real, dimension(:), intent(out) :: rho      !< in situ density [kg m-3].
   integer,            intent(in)  :: start    !< the starting point in the arrays.
   integer,            intent(in)  :: npts     !< the number of values to calculate.
   real,     optional, intent(in)  :: rho_ref  !< A reference density [kg m-3].
  
   ! Local variables
   real :: zp, zt, zh, zs, zr0, zn, zn0, zn1, zn2, zn3, zs0
   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 potential temp to conservative temp
     zp = pressure(j)* pa2db         !Convert pressure from Pascal to decibar
  
     !The following algorithm was provided by Roquet in a private communication.
     !It is not necessarily the algorithm used in NEMO ocean!
     zp  = zp * r1_p0 !pressure
     zt  = zt * r1_t0 !temperature
     zs  = sqrt( abs( zs + rdeltas ) * r1_s0 )   ! square root salinity
  
     zn3 = eos013*zt   &
        &   + eos103*zs+eos003
  
     zn2 = (eos022*zt   &
        &   + eos112*zs+eos012)*zt   &
        &   + (eos202*zs+eos102)*zs+eos002
  
     zn1 = (((eos041*zt   &
        &   + eos131*zs+eos031)*zt   &
        &   + (eos221*zs+eos121)*zs+eos021)*zt   &
        &   + ((eos311*zs+eos211)*zs+eos111)*zs+eos011)*zt   &
        &   + (((eos401*zs+eos301)*zs+eos201)*zs+eos101)*zs+eos001
  
     zn0 = (((((eos060*zt   &
        &   + eos150*zs+eos050)*zt   &
        &   + (eos240*zs+eos140)*zs+eos040)*zt   &
        &   + ((eos330*zs+eos230)*zs+eos130)*zs+eos030)*zt   &
        &   + (((eos420*zs+eos320)*zs+eos220)*zs+eos120)*zs+eos020)*zt   &
        &   + ((((eos510*zs+eos410)*zs+eos310)*zs+eos210)*zs+eos110)*zs+eos010)*zt
  
     zs0 = (((((eos600*zs+eos500)*zs+eos400)*zs+eos300)*zs+eos200)*zs+eos100)*zs + eos000
  
     zr0 = (((((r05 * zp+r04) * zp+r03 ) * zp+r02 ) * zp+r01) * zp+r00) * zp
  
     if (present(rho_ref)) then
       zn  = ( ( zn3 * zp + zn2 ) * zp + zn1 ) * zp + (zn0 + (zs0 - rho_ref))
       rho(j) =  ( zn + zr0 ) ! density
     else
       zn  = ( ( zn3 * zp + zn2 ) * zp + zn1 ) * zp + (zn0 + zs0)
       rho(j) =  ( zn + zr0 ) ! density
     endif
  
  enddo

References eos000, eos001, eos002, eos003, eos010, eos011, eos012, eos013, eos020, eos021, eos022, eos030, eos031, eos040, eos041, eos050, eos060, eos100, eos101, eos102, eos103, eos110, eos111, eos112, eos120, eos121, eos130, eos131, eos140, eos150, eos200, eos201, eos202, eos210, eos211, eos220, eos221, eos230, eos240, eos300, eos301, eos310, eos311, eos320, eos330, eos400, eos401, eos410, eos420, eos500, eos510, eos600, pa2db, r00, r01, r02, r03, r04, r05, r1_p0, r1_s0, r1_t0, and rdeltas.

Referenced by calculate_compress_nemo(), and calculate_density_scalar_nemo().

Here is the caller graph for this function:

◆ calculate_density_derivs_array_nemo()

subroutine mom_eos_nemo::calculate_density_derivs_array_nemo	(	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 expressions derived for use with NEMO.

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 potential temperature [kg m-3 degC-1].
[out]	drho_ds	The partial derivative of density with salinity, in [kg m-3 ppt-1].
[in]	start	The starting point in the arrays.
[in]	npts	The number of values to calculate.

Definition at line 268 of file MOM_EOS_NEMO.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 potential
                                                  !! temperature [kg m-3 degC-1].
   real,    intent(out), dimension(:) :: drho_dS  !< The partial derivative of density with salinity,
                                                  !! in [kg m-3 ppt-1].
   integer, intent(in)                :: start    !< The starting point in the arrays.
   integer, intent(in)                :: npts     !< The number of values to calculate.
  
   ! Local variables
   real :: zp,zt , zh , zs , zr0, zn , zn0, zn1, zn2, zn3
   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
  
     !The following algorithm was provided by Roquet in a private communication.
     !It is not necessarily the algorithm used in NEMO ocean!
     zp  = zp * r1_p0  ! pressure (first converted to decibar)
     zt  = zt * r1_t0                ! temperature
     zs  = sqrt( abs( zs + rdeltas ) * r1_s0 )   ! square root salinity
     !
     ! alpha
     zn3 = alp003
     !
     zn2 = alp012*zt + alp102*zs+alp002
     !
     zn1 = ((alp031*zt   &
        &   + alp121*zs+alp021)*zt   &
        &   + (alp211*zs+alp111)*zs+alp011)*zt   &
        &   + ((alp301*zs+alp201)*zs+alp101)*zs+alp001
        !
     zn0 = ((((alp050*zt   &
        &   + alp140*zs+alp040)*zt   &
        &   + (alp230*zs+alp130)*zs+alp030)*zt   &
        &   + ((alp320*zs+alp220)*zs+alp120)*zs+alp020)*zt   &
        &   + (((alp410*zs+alp310)*zs+alp210)*zs+alp110)*zs+alp010)*zt   &
        &   + ((((alp500*zs+alp400)*zs+alp300)*zs+alp200)*zs+alp100)*zs+alp000
        !
     zn  = ( ( zn3 * zp + zn2 ) * zp + zn1 ) * zp + zn0
     !
     drho_dt(j) = -zn
     !
     ! beta
     !
     zn3 = bet003
     !
     zn2 = bet012*zt + bet102*zs+bet002
     !
     zn1 = ((bet031*zt   &
        &   + bet121*zs+bet021)*zt   &
        &   + (bet211*zs+bet111)*zs+bet011)*zt   &
        &   + ((bet301*zs+bet201)*zs+bet101)*zs+bet001
        !
     zn0 = ((((bet050*zt   &
        &   + bet140*zs+bet040)*zt   &
        &   + (bet230*zs+bet130)*zs+bet030)*zt   &
        &   + ((bet320*zs+bet220)*zs+bet120)*zs+bet020)*zt   &
        &   + (((bet410*zs+bet310)*zs+bet210)*zs+bet110)*zs+bet010)*zt   &
        &   + ((((bet500*zs+bet400)*zs+bet300)*zs+bet200)*zs+bet100)*zs+bet000
        !
     zn  = ( ( zn3 * zp + zn2 ) * zp + zn1 ) * zp + zn0
     !
     drho_ds(j) = zn / zs
   enddo
  

References alp000, alp001, alp002, alp003, alp010, alp011, alp012, alp020, alp021, alp030, alp031, alp040, alp050, alp100, alp101, alp102, alp110, alp111, alp120, alp121, alp130, alp140, alp200, alp201, alp210, alp211, alp220, alp230, alp300, alp301, alp310, alp320, alp400, alp410, alp500, bet000, bet001, bet002, bet003, bet010, bet011, bet012, bet020, bet021, bet030, bet031, bet040, bet050, bet100, bet101, bet102, bet110, bet111, bet120, bet121, bet130, bet140, bet200, bet201, bet210, bet211, bet220, bet230, bet300, bet301, bet310, bet320, bet400, bet410, bet500, pa2db, r1_p0, r1_s0, r1_t0, and rdeltas.

Referenced by calculate_density_derivs_scalar_nemo().

Here is the caller graph for this function:

◆ calculate_density_derivs_scalar_nemo()

subroutine mom_eos_nemo::calculate_density_derivs_scalar_nemo	(	real, intent(in)	T,
		real, intent(in)	S,
		real, intent(in)	pressure,
		real, intent(out)	drho_dt,
		real, intent(out)	drho_ds
	)

private

Wrapper to calculate_density_derivs_array for scalar inputs.

Parameters

[in]	t	Potential temperature relative to the surface [degC].
[in]	s	Salinity [g kg-1].
[in]	pressure	Pressure [Pa].
[out]	drho_dt	The partial derivative of density with potential temperature [kg m-3 degC-1].
[out]	drho_ds	The partial derivative of density with salinity, in [kg m-3 ppt-1].

Definition at line 342 of file MOM_EOS_NEMO.F90.

   real,    intent(in)  :: T        !< Potential temperature relative to the surface [degC].
   real,    intent(in)  :: S        !< Salinity [g kg-1].
   real,    intent(in)  :: pressure !< Pressure [Pa].
   real,    intent(out) :: drho_dT  !< The partial derivative of density with potential
                                    !! temperature [kg m-3 degC-1].
   real,    intent(out) :: drho_dS  !< The partial derivative of density with salinity,
                                    !! in [kg m-3 ppt-1].
   ! Local variables
   real :: al0, p0, lambda
   integer :: j
   real, dimension(1) :: T0, S0, pressure0
   real, dimension(1) :: drdt0, drds0
  
   t0(1) = t
   s0(1) = s
   pressure0(1) = pressure
  
   call calculate_density_derivs_array_nemo(t0, s0, pressure0, drdt0, drds0, 1, 1)
   drho_dt = drdt0(1)
   drho_ds = drds0(1)

References calculate_density_derivs_array_nemo().

Here is the call graph for this function:

◆ calculate_density_scalar_nemo()

subroutine, public mom_eos_nemo::calculate_density_scalar_nemo	(	real, intent(in)	T,
		real, intent(in)	S,
		real, intent(in)	pressure,
		real, intent(out)	rho,
		real, intent(in), optional	rho_ref
	)

This subroutine computes the in situ density of sea water (rho in [kg m-3]) from absolute salinity (S [g kg-1]), conservative temperature (T [degC]), and pressure [Pa]. It uses the expressions derived for use with NEMO.

Parameters

[in]	t	Conservative temperature [degC].
[in]	s	Absolute salinity [g kg-1].
[in]	pressure	pressure [Pa].
[out]	rho	In situ density [kg m-3].
[in]	rho_ref	A reference density [kg m-3].

Definition at line 181 of file MOM_EOS_NEMO.F90.

   real,           intent(in)  :: T        !< Conservative temperature [degC].
   real,           intent(in)  :: S        !< Absolute salinity [g kg-1].
   real,           intent(in)  :: pressure !< pressure [Pa].
   real,           intent(out) :: rho      !< In situ density [kg m-3].
   real, optional, intent(in)  :: rho_ref  !< A reference density [kg m-3].
  
   real :: al0, p0, lambda
   integer :: j
   real, dimension(1) :: T0, S0, pressure0
   real, dimension(1) :: rho0
  
   t0(1) = t
   s0(1) = s
   pressure0(1) = pressure
  
   call calculate_density_array_nemo(t0, s0, pressure0, rho0, 1, 1, rho_ref)
   rho = rho0(1)
  

References calculate_density_array_nemo().

Here is the call graph for this function:

Variable Documentation

◆ alp000

real, parameter mom_eos_nemo::alp000 = -6.5025362670e-01

private

Parameters in the NEMO equation of state.

Definition at line 102 of file MOM_EOS_NEMO.F90.

102 real, parameter :: ALP000 = -6.5025362670e-01

Referenced by calculate_density_derivs_array_nemo().

◆ alp001

real, parameter mom_eos_nemo::alp001 = 3.3340752782e-01

private

Parameters in the NEMO equation of state.

Definition at line 123 of file MOM_EOS_NEMO.F90.

123 real, parameter :: ALP001 = 3.3340752782e-01

Referenced by calculate_density_derivs_array_nemo().

◆ alp002

real, parameter mom_eos_nemo::alp002 = -5.1410778748e-02

private

Parameters in the NEMO equation of state.

Definition at line 133 of file MOM_EOS_NEMO.F90.

133 real, parameter :: ALP002 = -5.1410778748e-02

Referenced by calculate_density_derivs_array_nemo().

◆ alp003

real, parameter mom_eos_nemo::alp003 = -9.4924551138e-03

private

Parameters in the NEMO equation of state.

Definition at line 136 of file MOM_EOS_NEMO.F90.

136 real, parameter :: ALP003 = -9.4924551138e-03

Referenced by calculate_density_derivs_array_nemo().

◆ alp010

real, parameter mom_eos_nemo::alp010 = 1.8537085209

private

Parameters in the NEMO equation of state.

Definition at line 108 of file MOM_EOS_NEMO.F90.

108 real, parameter :: ALP010 = 1.8537085209

Referenced by calculate_density_derivs_array_nemo().

◆ alp011

real, parameter mom_eos_nemo::alp011 = -3.3540239802e-01

private

Parameters in the NEMO equation of state.

Definition at line 127 of file MOM_EOS_NEMO.F90.

127 real, parameter :: ALP011 = -3.3540239802e-01

Referenced by calculate_density_derivs_array_nemo().

◆ alp012

real, parameter mom_eos_nemo::alp012 = 6.2099915132e-02

private

Parameters in the NEMO equation of state.

Definition at line 135 of file MOM_EOS_NEMO.F90.

135 real, parameter :: ALP012 = 6.2099915132e-02

Referenced by calculate_density_derivs_array_nemo().

◆ alp020

real, parameter mom_eos_nemo::alp020 = -1.6246342147

private

Parameters in the NEMO equation of state.

Definition at line 113 of file MOM_EOS_NEMO.F90.

113 real, parameter :: ALP020 = -1.6246342147

Referenced by calculate_density_derivs_array_nemo().

◆ alp021

real, parameter mom_eos_nemo::alp021 = 1.8487252150e-01

private

Parameters in the NEMO equation of state.

Definition at line 130 of file MOM_EOS_NEMO.F90.

130 real, parameter :: ALP021 = 1.8487252150e-01

Referenced by calculate_density_derivs_array_nemo().

◆ alp030

real, parameter mom_eos_nemo::alp030 = 8.3627885467e-01

private

Parameters in the NEMO equation of state.

Definition at line 117 of file MOM_EOS_NEMO.F90.

117 real, parameter :: ALP030 = 8.3627885467e-01

Referenced by calculate_density_derivs_array_nemo().

◆ alp031

real, parameter mom_eos_nemo::alp031 = -5.5927935970e-02

private

Parameters in the NEMO equation of state.

Definition at line 132 of file MOM_EOS_NEMO.F90.

132 real, parameter :: ALP031 = -5.5927935970e-02

Referenced by calculate_density_derivs_array_nemo().

◆ alp040

real, parameter mom_eos_nemo::alp040 = -6.7560904739e-02

private

Parameters in the NEMO equation of state.

Definition at line 120 of file MOM_EOS_NEMO.F90.

120 real, parameter :: ALP040 = -6.7560904739e-02

Referenced by calculate_density_derivs_array_nemo().

◆ alp050

real, parameter mom_eos_nemo::alp050 = 2.8625353333e-02

private

Parameters in the NEMO equation of state.

Definition at line 122 of file MOM_EOS_NEMO.F90.

122 real, parameter :: ALP050 = 2.8625353333e-02

Referenced by calculate_density_derivs_array_nemo().

◆ alp100

real, parameter mom_eos_nemo::alp100 = 1.6320471316

private

Parameters in the NEMO equation of state.

Definition at line 103 of file MOM_EOS_NEMO.F90.

103 real, parameter :: ALP100 = 1.6320471316

Referenced by calculate_density_derivs_array_nemo().

◆ alp101

real, parameter mom_eos_nemo::alp101 = 1.1217528644e-01

private

Parameters in the NEMO equation of state.

Definition at line 124 of file MOM_EOS_NEMO.F90.

124 real, parameter :: ALP101 = 1.1217528644e-01

Referenced by calculate_density_derivs_array_nemo().

◆ alp102

real, parameter mom_eos_nemo::alp102 = 5.3278413794e-03

private

Parameters in the NEMO equation of state.

Definition at line 134 of file MOM_EOS_NEMO.F90.

134 real, parameter :: ALP102 = 5.3278413794e-03

Referenced by calculate_density_derivs_array_nemo().

◆ alp110

real, parameter mom_eos_nemo::alp110 = -3.0774129064

private

Parameters in the NEMO equation of state.

Definition at line 109 of file MOM_EOS_NEMO.F90.

109 real, parameter :: ALP110 = -3.0774129064

Referenced by calculate_density_derivs_array_nemo().

◆ alp111

real, parameter mom_eos_nemo::alp111 = -1.7531540640e-01

private

Parameters in the NEMO equation of state.

Definition at line 128 of file MOM_EOS_NEMO.F90.

128 real, parameter :: ALP111 = -1.7531540640e-01

Referenced by calculate_density_derivs_array_nemo().

◆ alp120

real, parameter mom_eos_nemo::alp120 = 2.5086831352

private

Parameters in the NEMO equation of state.

Definition at line 114 of file MOM_EOS_NEMO.F90.

114 real, parameter :: ALP120 = 2.5086831352

Referenced by calculate_density_derivs_array_nemo().

◆ alp121

real, parameter mom_eos_nemo::alp121 = 4.1307825959e-02

private

Parameters in the NEMO equation of state.

Definition at line 131 of file MOM_EOS_NEMO.F90.

131 real, parameter :: ALP121 = 4.1307825959e-02

Referenced by calculate_density_derivs_array_nemo().

◆ alp130

real, parameter mom_eos_nemo::alp130 = -1.1311538584

private

Parameters in the NEMO equation of state.

Definition at line 118 of file MOM_EOS_NEMO.F90.

118 real, parameter :: ALP130 = -1.1311538584

Referenced by calculate_density_derivs_array_nemo().

◆ alp140

real, parameter mom_eos_nemo::alp140 = -6.0212475204e-02

private

Parameters in the NEMO equation of state.

Definition at line 121 of file MOM_EOS_NEMO.F90.

121 real, parameter :: ALP140 = -6.0212475204e-02

Referenced by calculate_density_derivs_array_nemo().

◆ alp200

real, parameter mom_eos_nemo::alp200 = -2.0442606277

private

Parameters in the NEMO equation of state.

Definition at line 104 of file MOM_EOS_NEMO.F90.

104 real, parameter :: ALP200 = -2.0442606277

Referenced by calculate_density_derivs_array_nemo().

◆ alp201

real, parameter mom_eos_nemo::alp201 = -1.2510649515e-01

private

Parameters in the NEMO equation of state.

Definition at line 125 of file MOM_EOS_NEMO.F90.

125 real, parameter :: ALP201 = -1.2510649515e-01

Referenced by calculate_density_derivs_array_nemo().

◆ alp210

real, parameter mom_eos_nemo::alp210 = 3.0181275751

private

Parameters in the NEMO equation of state.

Definition at line 110 of file MOM_EOS_NEMO.F90.

110 real, parameter :: ALP210 = 3.0181275751

Referenced by calculate_density_derivs_array_nemo().

◆ alp211

real, parameter mom_eos_nemo::alp211 = 9.3976864981e-02

private

Parameters in the NEMO equation of state.

Definition at line 129 of file MOM_EOS_NEMO.F90.

129 real, parameter :: ALP211 = 9.3976864981e-02

Referenced by calculate_density_derivs_array_nemo().

◆ alp220

real, parameter mom_eos_nemo::alp220 = -1.4787808849

private

Parameters in the NEMO equation of state.

Definition at line 115 of file MOM_EOS_NEMO.F90.

115 real, parameter :: ALP220 = -1.4787808849

Referenced by calculate_density_derivs_array_nemo().

◆ alp230

real, parameter mom_eos_nemo::alp230 = 5.3563304045e-01

private

Parameters in the NEMO equation of state.

Definition at line 119 of file MOM_EOS_NEMO.F90.

119 real, parameter :: ALP230 = 5.3563304045e-01

Referenced by calculate_density_derivs_array_nemo().

◆ alp300

real, parameter mom_eos_nemo::alp300 = 1.4222011580

private

Parameters in the NEMO equation of state.

Definition at line 105 of file MOM_EOS_NEMO.F90.

105 real, parameter :: ALP300 = 1.4222011580

Referenced by calculate_density_derivs_array_nemo().

◆ alp301

real, parameter mom_eos_nemo::alp301 = 1.6349760916e-02

private

Parameters in the NEMO equation of state.

Definition at line 126 of file MOM_EOS_NEMO.F90.

126 real, parameter :: ALP301 = 1.6349760916e-02

Referenced by calculate_density_derivs_array_nemo().

◆ alp310

real, parameter mom_eos_nemo::alp310 = -1.4565010626

private

Parameters in the NEMO equation of state.

Definition at line 111 of file MOM_EOS_NEMO.F90.

111 real, parameter :: ALP310 = -1.4565010626

Referenced by calculate_density_derivs_array_nemo().

◆ alp320

real, parameter mom_eos_nemo::alp320 = 2.3807209899e-01

private

Parameters in the NEMO equation of state.

Definition at line 116 of file MOM_EOS_NEMO.F90.

116 real, parameter :: ALP320 = 2.3807209899e-01

Referenced by calculate_density_derivs_array_nemo().

◆ alp400

real, parameter mom_eos_nemo::alp400 = -4.4204535284e-01

private

Parameters in the NEMO equation of state.

Definition at line 106 of file MOM_EOS_NEMO.F90.

106 real, parameter :: ALP400 = -4.4204535284e-01

Referenced by calculate_density_derivs_array_nemo().

◆ alp410

real, parameter mom_eos_nemo::alp410 = 2.7361846370e-01

private

Parameters in the NEMO equation of state.

Definition at line 112 of file MOM_EOS_NEMO.F90.

112 real, parameter :: ALP410 = 2.7361846370e-01

Referenced by calculate_density_derivs_array_nemo().

◆ alp500

real, parameter mom_eos_nemo::alp500 = 4.7983755487e-02

private

Parameters in the NEMO equation of state.

Definition at line 107 of file MOM_EOS_NEMO.F90.

107 real, parameter :: ALP500 = 4.7983755487e-02

Referenced by calculate_density_derivs_array_nemo().

◆ bet000

real, parameter mom_eos_nemo::bet000 = 1.0783203594e+01

private

Parameters in the NEMO equation of state.

Definition at line 137 of file MOM_EOS_NEMO.F90.

137 real, parameter :: BET000 = 1.0783203594e+01

Referenced by calculate_density_derivs_array_nemo().

◆ bet001

real, parameter mom_eos_nemo::bet001 = -5.2937873009e-01

private

Parameters in the NEMO equation of state.

Definition at line 158 of file MOM_EOS_NEMO.F90.

158 real, parameter :: BET001 = -5.2937873009e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet002

real, parameter mom_eos_nemo::bet002 = -6.1618945251e-02

private

Parameters in the NEMO equation of state.

Definition at line 168 of file MOM_EOS_NEMO.F90.

168 real, parameter :: BET002 = -6.1618945251e-02

Referenced by calculate_density_derivs_array_nemo().

◆ bet003

real, parameter mom_eos_nemo::bet003 = -2.3025968587e-04

private

Parameters in the NEMO equation of state.

Definition at line 171 of file MOM_EOS_NEMO.F90.

171 real, parameter :: BET003 = -2.3025968587e-04

Referenced by calculate_density_derivs_array_nemo().

◆ bet010

real, parameter mom_eos_nemo::bet010 = -8.1219372432e-01

private

Parameters in the NEMO equation of state.

Definition at line 143 of file MOM_EOS_NEMO.F90.

143 real, parameter :: BET010 = -8.1219372432e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet011

real, parameter mom_eos_nemo::bet011 = -5.5824407214e-02

private

Parameters in the NEMO equation of state.

Definition at line 162 of file MOM_EOS_NEMO.F90.

162 real, parameter :: BET011 = -5.5824407214e-02

Referenced by calculate_density_derivs_array_nemo().

◆ bet012

real, parameter mom_eos_nemo::bet012 = -2.6514181169e-03

private

Parameters in the NEMO equation of state.

Definition at line 170 of file MOM_EOS_NEMO.F90.

170 real, parameter :: BET012 = -2.6514181169e-03

Referenced by calculate_density_derivs_array_nemo().

◆ bet020

real, parameter mom_eos_nemo::bet020 = 7.6574242289e-01

private

Parameters in the NEMO equation of state.

Definition at line 148 of file MOM_EOS_NEMO.F90.

148 real, parameter :: BET020 = 7.6574242289e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet021

real, parameter mom_eos_nemo::bet021 = 4.3623149752e-02

private

Parameters in the NEMO equation of state.

Definition at line 165 of file MOM_EOS_NEMO.F90.

165 real, parameter :: BET021 = 4.3623149752e-02

Referenced by calculate_density_derivs_array_nemo().

◆ bet030

real, parameter mom_eos_nemo::bet030 = -4.1615152308e-01

private

Parameters in the NEMO equation of state.

Definition at line 152 of file MOM_EOS_NEMO.F90.

152 real, parameter :: BET030 = -4.1615152308e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet031

real, parameter mom_eos_nemo::bet031 = -6.8523260060e-03

private

Parameters in the NEMO equation of state.

Definition at line 167 of file MOM_EOS_NEMO.F90.

167 real, parameter :: BET031 = -6.8523260060e-03

Referenced by calculate_density_derivs_array_nemo().

◆ bet040

real, parameter mom_eos_nemo::bet040 = 1.4073062708e-01

private

Parameters in the NEMO equation of state.

Definition at line 155 of file MOM_EOS_NEMO.F90.

155 real, parameter :: BET040 = 1.4073062708e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet050

real, parameter mom_eos_nemo::bet050 = 5.9929880134e-03

private

Parameters in the NEMO equation of state.

Definition at line 157 of file MOM_EOS_NEMO.F90.

157 real, parameter :: BET050 = 5.9929880134e-03

Referenced by calculate_density_derivs_array_nemo().

◆ bet100

real, parameter mom_eos_nemo::bet100 = -4.4452095908e+01

private

Parameters in the NEMO equation of state.

Definition at line 138 of file MOM_EOS_NEMO.F90.

138 real, parameter :: BET100 = -4.4452095908e+01

Referenced by calculate_density_derivs_array_nemo().

◆ bet101

real, parameter mom_eos_nemo::bet101 = 1.2634116779

private

Parameters in the NEMO equation of state.

Definition at line 159 of file MOM_EOS_NEMO.F90.

159 real, parameter :: BET101 = 1.2634116779

Referenced by calculate_density_derivs_array_nemo().

◆ bet102

real, parameter mom_eos_nemo::bet102 = 6.2255521644e-02

private

Parameters in the NEMO equation of state.

Definition at line 169 of file MOM_EOS_NEMO.F90.

169 real, parameter :: BET102 = 6.2255521644e-02

Referenced by calculate_density_derivs_array_nemo().

◆ bet110

real, parameter mom_eos_nemo::bet110 = 2.0346663041

private

Parameters in the NEMO equation of state.

Definition at line 144 of file MOM_EOS_NEMO.F90.

144 real, parameter :: BET110 = 2.0346663041

Referenced by calculate_density_derivs_array_nemo().

◆ bet111

real, parameter mom_eos_nemo::bet111 = 1.2451933313e-01

private

Parameters in the NEMO equation of state.

Definition at line 163 of file MOM_EOS_NEMO.F90.

163 real, parameter :: BET111 = 1.2451933313e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet120

real, parameter mom_eos_nemo::bet120 = -1.5019813020

private

Parameters in the NEMO equation of state.

Definition at line 149 of file MOM_EOS_NEMO.F90.

149 real, parameter :: BET120 = -1.5019813020

Referenced by calculate_density_derivs_array_nemo().

◆ bet121

real, parameter mom_eos_nemo::bet121 = -4.6767901790e-02

private

Parameters in the NEMO equation of state.

Definition at line 166 of file MOM_EOS_NEMO.F90.

166 real, parameter :: BET121 = -4.6767901790e-02

Referenced by calculate_density_derivs_array_nemo().

◆ bet130

real, parameter mom_eos_nemo::bet130 = 4.9061350869e-01

private

Parameters in the NEMO equation of state.

Definition at line 153 of file MOM_EOS_NEMO.F90.

153 real, parameter :: BET130 = 4.9061350869e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet140

real, parameter mom_eos_nemo::bet140 = -1.3327978879e-01

private

Parameters in the NEMO equation of state.

Definition at line 156 of file MOM_EOS_NEMO.F90.

156 real, parameter :: BET140 = -1.3327978879e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet200

real, parameter mom_eos_nemo::bet200 = 7.6048755820e+01

private

Parameters in the NEMO equation of state.

Definition at line 139 of file MOM_EOS_NEMO.F90.

139 real, parameter :: BET200 = 7.6048755820e+01

Referenced by calculate_density_derivs_array_nemo().

◆ bet201

real, parameter mom_eos_nemo::bet201 = -1.1547328025

private

Parameters in the NEMO equation of state.

Definition at line 160 of file MOM_EOS_NEMO.F90.

160 real, parameter :: BET201 = -1.1547328025

Referenced by calculate_density_derivs_array_nemo().

◆ bet210

real, parameter mom_eos_nemo::bet210 = -2.1232895170

private

Parameters in the NEMO equation of state.

Definition at line 145 of file MOM_EOS_NEMO.F90.

145 real, parameter :: BET210 = -2.1232895170

Referenced by calculate_density_derivs_array_nemo().

◆ bet211

real, parameter mom_eos_nemo::bet211 = -2.4409539932e-02

private

Parameters in the NEMO equation of state.

Definition at line 164 of file MOM_EOS_NEMO.F90.

164 real, parameter :: BET211 = -2.4409539932e-02

Referenced by calculate_density_derivs_array_nemo().

◆ bet220

real, parameter mom_eos_nemo::bet220 = 1.0872489522

private

Parameters in the NEMO equation of state.

Definition at line 150 of file MOM_EOS_NEMO.F90.

150 real, parameter :: BET220 = 1.0872489522

Referenced by calculate_density_derivs_array_nemo().

◆ bet230

real, parameter mom_eos_nemo::bet230 = -1.1847737788e-01

private

Parameters in the NEMO equation of state.

Definition at line 154 of file MOM_EOS_NEMO.F90.

154 real, parameter :: BET230 = -1.1847737788e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet300

real, parameter mom_eos_nemo::bet300 = -6.3944280668e+01

private

Parameters in the NEMO equation of state.

Definition at line 140 of file MOM_EOS_NEMO.F90.

140 real, parameter :: BET300 = -6.3944280668e+01

Referenced by calculate_density_derivs_array_nemo().

◆ bet301

real, parameter mom_eos_nemo::bet301 = 3.2870876279e-01

private

Parameters in the NEMO equation of state.

Definition at line 161 of file MOM_EOS_NEMO.F90.

161 real, parameter :: BET301 = 3.2870876279e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet310

real, parameter mom_eos_nemo::bet310 = 8.7994140485e-01

private

Parameters in the NEMO equation of state.

Definition at line 146 of file MOM_EOS_NEMO.F90.

146 real, parameter :: BET310 = 8.7994140485e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet320

real, parameter mom_eos_nemo::bet320 = -2.7233429080e-01

private

Parameters in the NEMO equation of state.

Definition at line 151 of file MOM_EOS_NEMO.F90.

151 real, parameter :: BET320 = -2.7233429080e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet400

real, parameter mom_eos_nemo::bet400 = 2.6890441098e+01

private

Parameters in the NEMO equation of state.

Definition at line 141 of file MOM_EOS_NEMO.F90.

141 real, parameter :: BET400 = 2.6890441098e+01

Referenced by calculate_density_derivs_array_nemo().

◆ bet410

real, parameter mom_eos_nemo::bet410 = -1.1939638360e-01

private

Parameters in the NEMO equation of state.

Definition at line 147 of file MOM_EOS_NEMO.F90.

147 real, parameter :: BET410 = -1.1939638360e-01

Referenced by calculate_density_derivs_array_nemo().

◆ bet500

real, parameter mom_eos_nemo::bet500 = -4.5221697773

private

Parameters in the NEMO equation of state.

Definition at line 142 of file MOM_EOS_NEMO.F90.

142 real, parameter :: BET500 = -4.5221697773

Referenced by calculate_density_derivs_array_nemo().

◆ eos000

real, parameter mom_eos_nemo::eos000 = 8.0189615746e+02

private

Parameters in the NEMO equation of state.

Definition at line 50 of file MOM_EOS_NEMO.F90.

50 real, parameter :: EOS000 = 8.0189615746e+02

Referenced by calculate_density_array_nemo().

◆ eos001

real, parameter mom_eos_nemo::eos001 = 1.9681925209e+01

private

Parameters in the NEMO equation of state.

Definition at line 78 of file MOM_EOS_NEMO.F90.

78 real, parameter :: EOS001 = 1.9681925209e+01

Referenced by calculate_density_array_nemo().

◆ eos002

real, parameter mom_eos_nemo::eos002 = 2.0660924175

private

Parameters in the NEMO equation of state.

Definition at line 93 of file MOM_EOS_NEMO.F90.

93 real, parameter :: EOS002 = 2.0660924175

Referenced by calculate_density_array_nemo().

◆ eos003

real, parameter mom_eos_nemo::eos003 = -2.3342758797e-02

private

Parameters in the NEMO equation of state.

Definition at line 99 of file MOM_EOS_NEMO.F90.

99 real, parameter :: EOS003 = -2.3342758797e-02

Referenced by calculate_density_array_nemo().

◆ eos010

real, parameter mom_eos_nemo::eos010 = 2.6010145068e+01

private

Parameters in the NEMO equation of state.

Definition at line 57 of file MOM_EOS_NEMO.F90.

57 real, parameter :: EOS010 = 2.6010145068e+01

Referenced by calculate_density_array_nemo().

◆ eos011

real, parameter mom_eos_nemo::eos011 = -1.3336301113e+01

private

Parameters in the NEMO equation of state.

Definition at line 83 of file MOM_EOS_NEMO.F90.

83 real, parameter :: EOS011 = -1.3336301113e+01

Referenced by calculate_density_array_nemo().

◆ eos012

real, parameter mom_eos_nemo::eos012 = 2.0564311499

private

Parameters in the NEMO equation of state.

Definition at line 96 of file MOM_EOS_NEMO.F90.

96 real, parameter :: EOS012 = 2.0564311499

Referenced by calculate_density_array_nemo().

◆ eos013

real, parameter mom_eos_nemo::eos013 = 3.7969820455e-01

private

Parameters in the NEMO equation of state.

Definition at line 101 of file MOM_EOS_NEMO.F90.

101 real, parameter :: EOS013 = 3.7969820455e-01

Referenced by calculate_density_array_nemo().

◆ eos020

real, parameter mom_eos_nemo::eos020 = -3.7074170417e+01

private

Parameters in the NEMO equation of state.

Definition at line 63 of file MOM_EOS_NEMO.F90.

63 real, parameter :: EOS020 = -3.7074170417e+01

Referenced by calculate_density_array_nemo().

◆ eos021

real, parameter mom_eos_nemo::eos021 = 6.7080479603

private

Parameters in the NEMO equation of state.

Definition at line 87 of file MOM_EOS_NEMO.F90.

87 real, parameter :: EOS021 = 6.7080479603

Referenced by calculate_density_array_nemo().

◆ eos022

real, parameter mom_eos_nemo::eos022 = -1.2419983026

private

Parameters in the NEMO equation of state.

Definition at line 98 of file MOM_EOS_NEMO.F90.

98 real, parameter :: EOS022 = -1.2419983026

Referenced by calculate_density_array_nemo().

◆ eos030

real, parameter mom_eos_nemo::eos030 = 2.1661789529e+01

private

Parameters in the NEMO equation of state.

Definition at line 68 of file MOM_EOS_NEMO.F90.

68 real, parameter :: EOS030 = 2.1661789529e+01

Referenced by calculate_density_array_nemo().

◆ eos031

real, parameter mom_eos_nemo::eos031 = -2.4649669534

private

Parameters in the NEMO equation of state.

Definition at line 90 of file MOM_EOS_NEMO.F90.

90 real, parameter :: EOS031 = -2.4649669534

Referenced by calculate_density_array_nemo().

◆ eos040

real, parameter mom_eos_nemo::eos040 = -8.3627885467

private

Parameters in the NEMO equation of state.

Definition at line 72 of file MOM_EOS_NEMO.F90.

72 real, parameter :: EOS040 = -8.3627885467

Referenced by calculate_density_array_nemo().

◆ eos041

real, parameter mom_eos_nemo::eos041 = 5.5927935970e-01

private

Parameters in the NEMO equation of state.

Definition at line 92 of file MOM_EOS_NEMO.F90.

92 real, parameter :: EOS041 = 5.5927935970e-01

Referenced by calculate_density_array_nemo().

◆ eos050

real, parameter mom_eos_nemo::eos050 = 5.4048723791e-01

private

Parameters in the NEMO equation of state.

Definition at line 75 of file MOM_EOS_NEMO.F90.

75 real, parameter :: EOS050 = 5.4048723791e-01

Referenced by calculate_density_array_nemo().

◆ eos060

real, parameter mom_eos_nemo::eos060 = -1.9083568888e-01

private

Parameters in the NEMO equation of state.

Definition at line 77 of file MOM_EOS_NEMO.F90.

77 real, parameter :: EOS060 = -1.9083568888e-01

Referenced by calculate_density_array_nemo().

◆ eos100

real, parameter mom_eos_nemo::eos100 = 8.6672408165e+02

private

Parameters in the NEMO equation of state.

Definition at line 51 of file MOM_EOS_NEMO.F90.

51 real, parameter :: EOS100 = 8.6672408165e+02

Referenced by calculate_density_array_nemo().

◆ eos101

real, parameter mom_eos_nemo::eos101 = -4.2549998214e+01

private

Parameters in the NEMO equation of state.

Definition at line 79 of file MOM_EOS_NEMO.F90.

79 real, parameter :: EOS101 = -4.2549998214e+01

Referenced by calculate_density_array_nemo().

◆ eos102

real, parameter mom_eos_nemo::eos102 = -4.9527603989

private

Parameters in the NEMO equation of state.

Definition at line 94 of file MOM_EOS_NEMO.F90.

94 real, parameter :: EOS102 = -4.9527603989

Referenced by calculate_density_array_nemo().

◆ eos103

real, parameter mom_eos_nemo::eos103 = -1.8507636718e-02

private

Parameters in the NEMO equation of state.

Definition at line 100 of file MOM_EOS_NEMO.F90.

100 real, parameter :: EOS103 = -1.8507636718e-02

Referenced by calculate_density_array_nemo().

◆ eos110

real, parameter mom_eos_nemo::eos110 = -6.5281885265e+01

private

Parameters in the NEMO equation of state.

Definition at line 58 of file MOM_EOS_NEMO.F90.

58 real, parameter :: EOS110 = -6.5281885265e+01

Referenced by calculate_density_array_nemo().

◆ eos111

real, parameter mom_eos_nemo::eos111 = -4.4870114575

private

Parameters in the NEMO equation of state.

Definition at line 84 of file MOM_EOS_NEMO.F90.

84 real, parameter :: EOS111 = -4.4870114575

Referenced by calculate_density_array_nemo().

◆ eos112

real, parameter mom_eos_nemo::eos112 = -2.1311365518e-01

private

Parameters in the NEMO equation of state.

Definition at line 97 of file MOM_EOS_NEMO.F90.

97 real, parameter :: EOS112 = -2.1311365518e-01

Referenced by calculate_density_array_nemo().

◆ eos120

real, parameter mom_eos_nemo::eos120 = 6.1548258127e+01

private

Parameters in the NEMO equation of state.

Definition at line 64 of file MOM_EOS_NEMO.F90.

64 real, parameter :: EOS120 = 6.1548258127e+01

Referenced by calculate_density_array_nemo().

◆ eos121

real, parameter mom_eos_nemo::eos121 = 3.5063081279

private

Parameters in the NEMO equation of state.

Definition at line 88 of file MOM_EOS_NEMO.F90.

88 real, parameter :: EOS121 = 3.5063081279

Referenced by calculate_density_array_nemo().

◆ eos130

real, parameter mom_eos_nemo::eos130 = -3.3449108469e+01

private

Parameters in the NEMO equation of state.

Definition at line 69 of file MOM_EOS_NEMO.F90.

69 real, parameter :: EOS130 = -3.3449108469e+01

Referenced by calculate_density_array_nemo().

◆ eos131

real, parameter mom_eos_nemo::eos131 = -5.5077101279e-01

private

Parameters in the NEMO equation of state.

Definition at line 91 of file MOM_EOS_NEMO.F90.

91 real, parameter :: EOS131 = -5.5077101279e-01

Referenced by calculate_density_array_nemo().

◆ eos140

real, parameter mom_eos_nemo::eos140 = 1.1311538584e+01

private

Parameters in the NEMO equation of state.

Definition at line 73 of file MOM_EOS_NEMO.F90.

73 real, parameter :: EOS140 = 1.1311538584e+01

Referenced by calculate_density_array_nemo().

◆ eos150

real, parameter mom_eos_nemo::eos150 = 4.8169980163e-01

private

Parameters in the NEMO equation of state.

Definition at line 76 of file MOM_EOS_NEMO.F90.

76 real, parameter :: EOS150 = 4.8169980163e-01

Referenced by calculate_density_array_nemo().

◆ eos200

real, parameter mom_eos_nemo::eos200 = -1.7864682637e+03

private

Parameters in the NEMO equation of state.

Definition at line 52 of file MOM_EOS_NEMO.F90.

52 real, parameter :: EOS200 = -1.7864682637e+03

Referenced by calculate_density_array_nemo().

◆ eos201

real, parameter mom_eos_nemo::eos201 = 5.0774768218e+01

private

Parameters in the NEMO equation of state.

Definition at line 80 of file MOM_EOS_NEMO.F90.

80 real, parameter :: EOS201 = 5.0774768218e+01

Referenced by calculate_density_array_nemo().

◆ eos202

real, parameter mom_eos_nemo::eos202 = 2.5019633244

private

Parameters in the NEMO equation of state.

Definition at line 95 of file MOM_EOS_NEMO.F90.

95 real, parameter :: EOS202 = 2.5019633244

Referenced by calculate_density_array_nemo().

◆ eos210

real, parameter mom_eos_nemo::eos210 = 8.1770425108e+01

private

Parameters in the NEMO equation of state.

Definition at line 59 of file MOM_EOS_NEMO.F90.

59 real, parameter :: EOS210 = 8.1770425108e+01

Referenced by calculate_density_array_nemo().

◆ eos211

real, parameter mom_eos_nemo::eos211 = 5.0042598061

private

Parameters in the NEMO equation of state.

Definition at line 85 of file MOM_EOS_NEMO.F90.

85 real, parameter :: EOS211 = 5.0042598061

Referenced by calculate_density_array_nemo().

◆ eos220

real, parameter mom_eos_nemo::eos220 = -6.0362551501e+01

private

Parameters in the NEMO equation of state.

Definition at line 65 of file MOM_EOS_NEMO.F90.

65 real, parameter :: EOS220 = -6.0362551501e+01

Referenced by calculate_density_array_nemo().

◆ eos221

real, parameter mom_eos_nemo::eos221 = -1.8795372996

private

Parameters in the NEMO equation of state.

Definition at line 89 of file MOM_EOS_NEMO.F90.

89 real, parameter :: EOS221 = -1.8795372996

Referenced by calculate_density_array_nemo().

◆ eos230

real, parameter mom_eos_nemo::eos230 = 1.9717078466e+01

private

Parameters in the NEMO equation of state.

Definition at line 70 of file MOM_EOS_NEMO.F90.

70 real, parameter :: EOS230 = 1.9717078466e+01

Referenced by calculate_density_array_nemo().

◆ eos240

real, parameter mom_eos_nemo::eos240 = -5.3563304045

private

Parameters in the NEMO equation of state.

Definition at line 74 of file MOM_EOS_NEMO.F90.

74 real, parameter :: EOS240 = -5.3563304045

Referenced by calculate_density_array_nemo().

◆ eos300

real, parameter mom_eos_nemo::eos300 = 2.0375295546e+03

private

Parameters in the NEMO equation of state.

Definition at line 53 of file MOM_EOS_NEMO.F90.

53 real, parameter :: EOS300 = 2.0375295546e+03

Referenced by calculate_density_array_nemo().

◆ eos301

real, parameter mom_eos_nemo::eos301 = -3.0938076334e+01

private

Parameters in the NEMO equation of state.

Definition at line 81 of file MOM_EOS_NEMO.F90.

81 real, parameter :: EOS301 = -3.0938076334e+01

Referenced by calculate_density_array_nemo().

◆ eos310

real, parameter mom_eos_nemo::eos310 = -5.6888046321e+01

private

Parameters in the NEMO equation of state.

Definition at line 60 of file MOM_EOS_NEMO.F90.

60 real, parameter :: EOS310 = -5.6888046321e+01

Referenced by calculate_density_array_nemo().

◆ eos311

real, parameter mom_eos_nemo::eos311 = -6.5399043664e-01

private

Parameters in the NEMO equation of state.

Definition at line 86 of file MOM_EOS_NEMO.F90.

86 real, parameter :: EOS311 = -6.5399043664e-01

Referenced by calculate_density_array_nemo().

◆ eos320

real, parameter mom_eos_nemo::eos320 = 2.9130021253e+01

private

Parameters in the NEMO equation of state.

Definition at line 66 of file MOM_EOS_NEMO.F90.

66 real, parameter :: EOS320 = 2.9130021253e+01

Referenced by calculate_density_array_nemo().

◆ eos330

real, parameter mom_eos_nemo::eos330 = -3.1742946532

private

Parameters in the NEMO equation of state.

Definition at line 71 of file MOM_EOS_NEMO.F90.

71 real, parameter :: EOS330 = -3.1742946532

Referenced by calculate_density_array_nemo().

◆ eos400

real, parameter mom_eos_nemo::eos400 = -1.2849161071e+03

private

Parameters in the NEMO equation of state.

Definition at line 54 of file MOM_EOS_NEMO.F90.

54 real, parameter :: EOS400 = -1.2849161071e+03

Referenced by calculate_density_array_nemo().

◆ eos401

real, parameter mom_eos_nemo::eos401 = 6.6051753097

private

Parameters in the NEMO equation of state.

Definition at line 82 of file MOM_EOS_NEMO.F90.

82 real, parameter :: EOS401 = 6.6051753097

Referenced by calculate_density_array_nemo().

◆ eos410

real, parameter mom_eos_nemo::eos410 = 1.7681814114e+01

private

Parameters in the NEMO equation of state.

Definition at line 61 of file MOM_EOS_NEMO.F90.

61 real, parameter :: EOS410 = 1.7681814114e+01

Referenced by calculate_density_array_nemo().

◆ eos420

real, parameter mom_eos_nemo::eos420 = -5.4723692739

private

Parameters in the NEMO equation of state.

Definition at line 67 of file MOM_EOS_NEMO.F90.

67 real, parameter :: EOS420 = -5.4723692739

Referenced by calculate_density_array_nemo().

◆ eos500

real, parameter mom_eos_nemo::eos500 = 4.3227585684e+02

private

Parameters in the NEMO equation of state.

Definition at line 55 of file MOM_EOS_NEMO.F90.

55 real, parameter :: EOS500 = 4.3227585684e+02

Referenced by calculate_density_array_nemo().

◆ eos510

real, parameter mom_eos_nemo::eos510 = -1.9193502195

private

Parameters in the NEMO equation of state.

Definition at line 62 of file MOM_EOS_NEMO.F90.

62 real, parameter :: EOS510 = -1.9193502195

Referenced by calculate_density_array_nemo().

◆ eos600

real, parameter mom_eos_nemo::eos600 = -6.0579916612e+01

private

Parameters in the NEMO equation of state.

Definition at line 56 of file MOM_EOS_NEMO.F90.

56 real, parameter :: EOS600 = -6.0579916612e+01

Referenced by calculate_density_array_nemo().

◆ pa2db

real, parameter mom_eos_nemo::pa2db = 1.e-4

private

Conversion factor between Pa and dbar.

Definition at line 38 of file MOM_EOS_NEMO.F90.

38 real, parameter :: Pa2db = 1.e-4 !< Conversion factor between Pa and dbar

Referenced by calculate_compress_nemo(), calculate_density_array_nemo(), and calculate_density_derivs_array_nemo().

◆ r00

real, parameter mom_eos_nemo::r00 = 4.6494977072e+01

private

Parameters in the NEMO equation of state.

Definition at line 44 of file MOM_EOS_NEMO.F90.

44 real, parameter :: R00 = 4.6494977072e+01

Referenced by calculate_density_array_nemo().

◆ r01

real, parameter mom_eos_nemo::r01 = -5.2099962525

private

Parameters in the NEMO equation of state.

Definition at line 45 of file MOM_EOS_NEMO.F90.

45 real, parameter :: R01 = -5.2099962525

Referenced by calculate_density_array_nemo().

◆ r02

real, parameter mom_eos_nemo::r02 = 2.2601900708e-01

private

Parameters in the NEMO equation of state.

Definition at line 46 of file MOM_EOS_NEMO.F90.

46 real, parameter :: R02 = 2.2601900708e-01

Referenced by calculate_density_array_nemo().

◆ r03

real, parameter mom_eos_nemo::r03 = 6.4326772569e-02

private

Parameters in the NEMO equation of state.

Definition at line 47 of file MOM_EOS_NEMO.F90.

47 real, parameter :: R03 = 6.4326772569e-02

Referenced by calculate_density_array_nemo().

◆ r04

real, parameter mom_eos_nemo::r04 = 1.5616995503e-02

private

Parameters in the NEMO equation of state.

Definition at line 48 of file MOM_EOS_NEMO.F90.

48 real, parameter :: R04 = 1.5616995503e-02

Referenced by calculate_density_array_nemo().

◆ r05

real, parameter mom_eos_nemo::r05 = -1.7243708991e-03

private

Parameters in the NEMO equation of state.

Definition at line 49 of file MOM_EOS_NEMO.F90.

49 real, parameter :: R05 = -1.7243708991e-03

Referenced by calculate_density_array_nemo().

◆ r1_p0

real, parameter mom_eos_nemo::r1_p0 = 1.e-4

private

Parameters in the NEMO equation of state.

Definition at line 43 of file MOM_EOS_NEMO.F90.

43 real, parameter :: r1_P0 = 1.e-4

Referenced by calculate_density_array_nemo(), and calculate_density_derivs_array_nemo().

◆ r1_s0

real, parameter mom_eos_nemo::r1_s0 = 0.875/35.16504

private

Parameters in the NEMO equation of state.

Definition at line 41 of file MOM_EOS_NEMO.F90.

41 real, parameter :: r1_S0 = 0.875/35.16504

Referenced by calculate_density_array_nemo(), and calculate_density_derivs_array_nemo().

◆ r1_t0

real, parameter mom_eos_nemo::r1_t0 = 1./40.

private

Parameters in the NEMO equation of state.

Definition at line 42 of file MOM_EOS_NEMO.F90.

42 real, parameter :: r1_T0 = 1./40.

Referenced by calculate_density_array_nemo(), and calculate_density_derivs_array_nemo().

◆ rdeltas

real, parameter mom_eos_nemo::rdeltas = 32.

private

Parameters in the NEMO equation of state.

Definition at line 40 of file MOM_EOS_NEMO.F90.

40 real, parameter :: rdeltaS = 32.

Referenced by calculate_density_array_nemo(), and calculate_density_derivs_array_nemo().

Detailed Description

Data Types

Variables

Function/Subroutine Documentation

◆ calculate_compress_nemo()

◆ calculate_density_array_nemo()

◆ calculate_density_derivs_array_nemo()

◆ calculate_density_derivs_scalar_nemo()

◆ calculate_density_scalar_nemo()

Variable Documentation

◆ alp000

◆ alp001

◆ alp002

◆ alp003

◆ alp010

◆ alp011

◆ alp012

◆ alp020

◆ alp021

◆ alp030

◆ alp031

◆ alp040

◆ alp050

◆ alp100

◆ alp101

◆ alp102

◆ alp110

◆ alp111

◆ alp120

◆ alp121

◆ alp130

◆ alp140

◆ alp200

◆ alp201

◆ alp210

◆ alp211

◆ alp220

◆ alp230

◆ alp300

◆ alp301

◆ alp310

◆ alp320

◆ alp400

◆ alp410

◆ alp500

◆ bet000

◆ bet001

◆ bet002

◆ bet003

◆ bet010

◆ bet011

◆ bet012

◆ bet020

◆ bet021

◆ bet030

◆ bet031

◆ bet040

◆ bet050

◆ bet100

◆ bet101

◆ bet102

◆ bet110

◆ bet111

◆ bet120

◆ bet121

◆ bet130

◆ bet140

◆ bet200

◆ bet201

◆ bet210

◆ bet211

◆ bet220

◆ bet230

◆ bet300

◆ bet301

◆ bet310

◆ bet320

◆ bet400

◆ bet410

◆ bet500