| [175] | 1 | !*********************************************************************** |
|---|
| 2 | ! varmuphy.h : |
|---|
| 3 | ! fichier contenant toutes les variables communes a la microphysique. |
|---|
| 4 | ! Necessite microtab.h (pour la definition de nrad). |
|---|
| 5 | ! NOTE : certaines variables restent spécifiques a seulement quelques |
|---|
| 6 | ! une des routines de la microphysique. |
|---|
| 7 | !*********************************************************************** |
|---|
| 8 | !*********************************************************************** |
|---|
| 9 | ! variables communes a tous les routines |
|---|
| 10 | !*********************************************************************** |
|---|
| 11 | real p(llm),t(llm),rho(llm),pb(llm+1),tb(llm+1),rhob(llm+1) |
|---|
| 12 | real ach4(llm),aar(llm),an2(llm) !var communes a brume.F et snuages.F |
|---|
| 13 | real z(llm),dz(llm),zb(llm+1),dzb(llm+1) |
|---|
| 14 | real v_e(nrad),r_e(nrad),vrat_e,dr_e(nrad),dv_e(nrad) |
|---|
| 15 | |
|---|
| 16 | common/grille/z,zb,dz,dzb |
|---|
| 17 | common/donnees/p,pb,t,tb,rho,rhob,ach4,aar,an2 |
|---|
| 18 | common/aergrid/v_e,r_e,vrat_e,dr_e,dv_e |
|---|
| 19 | !*********************************************************************** |
|---|
| 20 | ! constantes communes a la microphysique. |
|---|
| 21 | !*********************************************************************** |
|---|
| 22 | real pi, & |
|---|
| 23 | & nav,rgp,kbz, & |
|---|
| 24 | & rtit,g0, & |
|---|
| 25 | & mch4,mc2h6,mc2h2,mar,mn2,mair, & |
|---|
| 26 | & rhol,rhoi_ch4,rhoi_c2h6,rhoi_c2h2, & |
|---|
| 27 | & mtetach4,mtetac2h6,mtetac2h2 |
|---|
| 28 | |
|---|
| 29 | common/phys/ & |
|---|
| 30 | & pi, & |
|---|
| 31 | & nav,rgp,kbz, & |
|---|
| 32 | & rtit,g0, & |
|---|
| 33 | & mch4,mc2h6,mc2h2,mar,mn2,mair, & |
|---|
| 34 | & rhol,rhoi_ch4,rhoi_c2h6,rhoi_c2h2, & |
|---|
| 35 | & mtetach4,mtetac2h6,mtetac2h2 |
|---|
| 36 | |
|---|
