Function ADIABAT(S, T, P) 'Adiabat Computes the adiabatic temperature gradient (called by Potentmp). ' Adiabat(S,T,P) returns the gradient. Units are: ' ' PRESSURE P DECIBARS ' TEMPERATURE T DEG CELSIUS (IPTS-68) ' SALINITY S (IPSS-78) ' ADIABAT ATG DEG. C/DECIBAR 'REF: BRYDEN,H., 1973, DEEP-SEA RES. 20: 401-408. 'CHECKVALUE: FOR S=40 (IPSS-78) ' T=40 DEG C ' P0=10000 DECIBARS ' ATG=3.255976E-4 C/DBAR DS = S - 35# ADIABAT = (((-2.1687E-16 * T + 1.8676E-14) * T - 4.6206E-13) * P + ((2.7759E-12 * T - 0.00000000011351) * DS + ((-5.4481E-14 * T + 0.000000000008733) * T - 0.00000000067795) * T + 0.000000018741)) * P + (-0.000000042393 * T + 0.0000018932) * DS + ((0.00000000066228 * T - 0.00000006836) * T + 0.0000085258) * T + 0.000035803 End Function