| 1 | *------------------------------------------------------------------- |
|---|
| 2 | * INCLUDE microtab.h |
|---|
| 3 | * |
|---|
| 4 | REAL wco,df_GP |
|---|
| 5 | INTEGER nz,nrad,nztop |
|---|
| 6 | |
|---|
| 7 | parameter(nz=llm,nrad=10,nztop=1) !VERSION X |
|---|
| 8 | |
|---|
| 9 | parameter(wco=177.,df_GP=2.) !FOR FRACTAL PARTCICLES |
|---|
| 10 | c parameter(wco=1.E+6,df_GP=3.) !FOR SPHERE PARTICLES |
|---|
| 11 | |
|---|
| 12 | real rf(nrad),df(nrad),zf,aknc |
|---|
| 13 | common/frac/rf,df,zf,aknc |
|---|
| 14 | |
|---|
| 15 | ********************************************************************* |
|---|
| 16 | * tcorrect, tx, microfi, cutoff: definis dans physiq.def (clesphys.h) |
|---|
| 17 | *------------ |
|---|
| 18 | ! WARNING: tx=production rate |
|---|
| 19 | ! tcorrect is readjustment factor: =1 is continiuty |
|---|
| 20 | ! =X is q()*X |
|---|
| 21 | *------------ |
|---|
| 22 | *(*1): si microfi=1, optcv et optci sont appeles a chaque appels de la |
|---|
| 23 | * physique pour reactualiser les TAU's. De meme, pg2.F est |
|---|
| 24 | * active a chaque appel de la physique.... |
|---|
| 25 | * si microfi=0., optcv et optci, ainsi que pg2, ne sont appele qu'une |
|---|
| 26 | * fois au debut, comme dans la version originale.... |
|---|
| 27 | *------------ |
|---|
| 28 | * dans optci et optcv: |
|---|
| 29 | * si cutoff=1, brume coupee facon Pascal -> T ok au sol et dans la strato |
|---|
| 30 | * -> T tropopause mauvaise |
|---|
| 31 | * -> albedo ok |
|---|
| 32 | * si cutoff=2, brume coupee sous 100mbar -> T ok sol/tropopause/strato |
|---|
| 33 | * -> mais albedo mauvais |
|---|
| 34 | |
|---|
