5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE thermcell(ngrid, nlay, ptimestep, pplay, pplev, pphi, pu, pv, pt, & |
SUBROUTINE thermcell(ngrid, nlay, ptimestep, pplay, pplev, pphi, pu, pv, pt, & |
8 |
po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0, r_aspect, l_mix, w2di, & |
po, pduadj, pdvadj, pdtadj, pdoadj, fm0, entr0) |
|
tho) |
|
9 |
|
|
10 |
! Calcul du transport vertical dans la couche limite en pr\'esence |
! Calcul du transport vertical dans la couche limite en pr\'esence |
11 |
! de "thermiques" explicitement repr\'esent\'es. R\'ecriture \`a partir |
! de "thermiques" explicitement repr\'esent\'es. R\'ecriture \`a partir |
24 |
|
|
25 |
! arguments: |
! arguments: |
26 |
|
|
27 |
INTEGER ngrid, nlay, w2di |
INTEGER ngrid, nlay |
28 |
real tho |
real ptimestep |
|
real ptimestep, l_mix, r_aspect |
|
29 |
REAL, intent(in):: pt(ngrid, nlay) |
REAL, intent(in):: pt(ngrid, nlay) |
30 |
real pdtadj(ngrid, nlay) |
real pdtadj(ngrid, nlay) |
31 |
REAL, intent(in):: pu(ngrid, nlay) |
REAL, intent(in):: pu(ngrid, nlay) |
85 |
real f(klon) |
real f(klon) |
86 |
real zlevinter(klon) |
real zlevinter(klon) |
87 |
|
|
88 |
|
real, parameter:: r_aspect = 4. |
89 |
|
real, parameter:: l_mix = 10. |
90 |
|
real, parameter:: tho = 0. |
91 |
|
integer, parameter:: w2di = 0 |
92 |
|
|
93 |
EXTERNAL SCOPY |
EXTERNAL SCOPY |
94 |
|
|
95 |
!----------------------------------------------------------------------- |
!----------------------------------------------------------------------- |