source: trunk/LMDZ.TITAN.old/libf/phytitan/fi10.F

Last change on this file 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: 135 bytes
Line 
1      FUNCTION FI10(X)
2      IMPLICIT REAL (A-H,O-Z)
3      FI10=.353/X+3.154000-.3060*X+.1410*X*X-2.887E-3*X**3
4      RETURN
5      END
Note: See TracBrowser for help on using the repository browser.