30 |
real ptimestep, l_mix, r_aspect |
real ptimestep, l_mix, r_aspect |
31 |
REAL, intent(in):: pt(ngrid, nlay) |
REAL, intent(in):: pt(ngrid, nlay) |
32 |
real pdtadj(ngrid, nlay) |
real pdtadj(ngrid, nlay) |
33 |
REAL pu(ngrid, nlay), pduadj(ngrid, nlay) |
REAL, intent(in):: pu(ngrid, nlay) |
34 |
REAL pv(ngrid, nlay), pdvadj(ngrid, nlay) |
real pduadj(ngrid, nlay) |
35 |
|
REAL, intent(in):: pv(ngrid, nlay) |
36 |
|
real pdvadj(ngrid, nlay) |
37 |
REAL po(ngrid, nlay), pdoadj(ngrid, nlay) |
REAL po(ngrid, nlay), pdoadj(ngrid, nlay) |
38 |
REAL, intent(in):: pplay(ngrid, nlay) |
REAL, intent(in):: pplay(ngrid, nlay) |
39 |
real, intent(in):: pplev(ngrid, nlay+1) |
real, intent(in):: pplev(ngrid, nlay+1) |
77 |
real thetath2(klon, klev), wth2(klon, klev) |
real thetath2(klon, klev), wth2(klon, klev) |
78 |
common/comtherm/thetath2, wth2 |
common/comtherm/thetath2, wth2 |
79 |
|
|
80 |
real count_time |
integer isplit, nsplit |
|
integer isplit, nsplit, ialt |
|
81 |
parameter (nsplit=10) |
parameter (nsplit=10) |
82 |
data isplit/0/ |
data isplit/0/ |
83 |
save isplit |
save isplit |
89 |
real wmax(klon), wmaxa(klon) |
real wmax(klon), wmaxa(klon) |
90 |
real wa(klon, klev, klev+1) |
real wa(klon, klev, klev+1) |
91 |
real wd(klon, klev+1) |
real wd(klon, klev+1) |
|
real larg_part(klon, klev, klev+1) |
|
92 |
real fracd(klon, klev+1) |
real fracd(klon, klev+1) |
93 |
real xxx(klon, klev+1) |
real xxx(klon, klev+1) |
94 |
real larg_cons(klon, klev+1) |
real larg_cons(klon, klev+1) |
95 |
real larg_detr(klon, klev+1) |
real larg_detr(klon, klev+1) |
96 |
real fm0(klon, klev+1), entr0(klon, klev), detr(klon, klev) |
real fm0(klon, klev+1), entr0(klon, klev), detr(klon, klev) |
|
real pu_therm(klon, klev), pv_therm(klon, klev) |
|
97 |
real fm(klon, klev+1), entr(klon, klev) |
real fm(klon, klev+1), entr(klon, klev) |
98 |
real fmc(klon, klev+1) |
real fmc(klon, klev+1) |
99 |
|
|
100 |
!CR:nouvelles variables |
!CR:nouvelles variables |
101 |
real f_star(klon, klev+1), entr_star(klon, klev) |
real f_star(klon, klev+1), entr_star(klon, klev) |
102 |
real entr_star_tot(klon), entr_star2(klon) |
real entr_star_tot(klon), entr_star2(klon) |
103 |
real f(klon), f0(klon) |
real f(klon) |
104 |
real zlevinter(klon) |
real zlevinter(klon) |
105 |
logical first |
logical first |
106 |
data first /.false./ |
data first /.false./ |
107 |
save first |
save first |
108 |
|
|
109 |
character*2 str2 |
character(len=2) str2 |
110 |
character*10 str10 |
character(len=10) str10 |
111 |
|
|
112 |
LOGICAL vtest(klon), down |
LOGICAL vtest(klon) |
113 |
|
|
114 |
EXTERNAL SCOPY |
EXTERNAL SCOPY |
115 |
|
|
116 |
integer ncorrec, ll |
integer ncorrec |
117 |
save ncorrec |
save ncorrec |
118 |
data ncorrec/0/ |
data ncorrec/0/ |
119 |
|
|