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

Last change on this file since 1243 was 887, checked in by slebonnois, 12 years ago

SL: add rcm1d tool in Venus and Titan physics to run the code in 1D, and associated small modifications

File size: 274 bytes
RevLine 
[3]1      FUNCTION EFFG(Z)
[175]2#include "YOMCST.h"
[808]3! RA en m, Z en m...
4
5! Quand on prendra atmosphere epaisse dans dynamique
6!    (et dans physique, attention a clmain et autres...)
7
[887]8      EFFG = RG * (RA/(RA + Z ) )**2
[808]9
10! Pour l'instant:
[887]11!     EFFG = RG
[3]12      RETURN
13      END
14
Note: See TracBrowser for help on using the repository browser.