[3] | 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 | |
---|