source: trunk/LMDZ.TITAN.old/libf/phytitan/azener.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: 247 bytes
Line 
1      FUNCTION AZENER(V,J)
2      IMPLICIT REAL (A-H,O-Z)
3      REAL J,JP
4      VP=V+0.5
5      JP=J+1.
6      E=2359.61*VP-14.456*VP**2+7.51E-3*VP**3+
7     $(1.9987-1.87E-2*VP)*J*JP-(5.8E-6-1.E-9*VP)*J**2*JP**2
8      AZENER=E
9      RETURN
10      END
Note: See TracBrowser for help on using the repository browser.