source: trunk/LMDZ.TITAN.old/libf/chimtitan/omega.c @ 3557

Last change on this file since 3557 was 1126, checked in by slebonnois, 11 years ago

SL: update of Titan photochemical module to include computation of chemistry up to 1300 km

File size: 347 bytes
Line 
1/* omega: correction to perfect gas compound */
2/* 30 Oct 96 */
3
4#include "titan.h"
5
6double omega( ts, epsa, epsb )
7double epsa,epsb,ts;
8{
9   double t;
10
11   t = ts / sqrt( epsa * epsb );
12   return 1.06036e0 * pow( t, -0.1561e0 ) + 0.193e0 * exp( -0.47635e0 * t )
13          + 1.03587e0 * exp( -1.52996e0 * t ) + 1.76474e0 * exp( -3.89411e0 * t );
14}
Note: See TracBrowser for help on using the repository browser.