source: trunk/LMDZ.TITAN/libf/phytitan/effg.F @ 152

Last change on this file since 152 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 EFFG(Z)
2      DATA G/1.35/
3      DATA RPLANT/2575./
4      EFFG = G * (RPLANT/(RPLANT + Z ) )**2
5      RETURN
6      END
7
Note: See TracBrowser for help on using the repository browser.