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 | |
---|