|
Last change
on this file since 537 was
306,
checked in by slebonnois, 13 years ago
|
|
SLebonnois: correction de bugs dans la physique Titan:
- effg.F : Z doit etre en km, donc conversion
- optc*_1pt_2.F : On utilise cfffv11 et plus optfrac
Du coup, les fichiers input testag* ne sont plus necessaires.
- phytrac.F : passage de la tendance aerosols en intensif dans tous les cas
|
|
File size:
132 bytes
|
| Line | |
|---|
| 1 | FUNCTION EFFG(Z) |
|---|
| 2 | #include "YOMCST.h" |
|---|
| 3 | ! RA en m, Z en km... |
|---|
| 4 | EFFG = RG * (RA/(RA + Z*1000. ) )**2 |
|---|
| 5 | RETURN |
|---|
| 6 | END |
|---|
| 7 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
