source: trunk/LMDZ.TITAN.old/libf/phytitan/pc2h2.F @ 3557

Last change on this file since 3557 was 3, checked in by slebonnois, 14 years ago

Creation de repertoires:

  • chantiers : pour communiquer sur nos projets de modifs
  • documentation : pour stocker les docs

Ajout de:

  • libf/phytitan : physique de Titan
  • libf/chimtitan: chimie de Titan
  • libf/phyvenus : physique de Venus
File size: 250 bytes
Line 
1      FUNCTION PC2H2(T)
2C THIS FUNCTION RETURNS THE VAPOR PRESSURE IN BARS.
3C BASED ON A LEAST SQUARES FIT TO DATA IN TABLE III
4C NBS TECHNICAL PB-151 363
5       DATA A,B/21.68901,-2814.018/
6       PC2H2=(1./760.)*EXP(A+B/T)
7       RETURN
8       END
Note: See TracBrowser for help on using the repository browser.