12 |
! de "thermiques" explicitement repr\'esent\'es. R\'ecriture \`a partir |
! de "thermiques" explicitement repr\'esent\'es. R\'ecriture \`a partir |
13 |
! d'un listing papier \`a Habas, le 14/02/00. Le thermique est |
! d'un listing papier \`a Habas, le 14/02/00. Le thermique est |
14 |
! suppos\'e homog\`ene et dissip\'e par m\'elange avec son |
! suppos\'e homog\`ene et dissip\'e par m\'elange avec son |
15 |
! environnement. La longueur "l_mix" contrôle l'efficacit\'e du |
! environnement. La longueur "l_mix" contr\^ole l'efficacit\'e du |
16 |
! m\'elange. Le calcul du transport des diff\'erentes esp\`eces se fait |
! m\'elange. Le calcul du transport des diff\'erentes esp\`eces se fait |
17 |
! en prenant en compte : |
! en prenant en compte : |
18 |
! 1. un flux de masse montant |
! 1. un flux de masse montant |
97 |
real entr_star_tot(klon), entr_star2(klon) |
real entr_star_tot(klon), entr_star2(klon) |
98 |
real f(klon) |
real f(klon) |
99 |
real zlevinter(klon) |
real zlevinter(klon) |
|
logical first |
|
|
data first /.false./ |
|
|
save first |
|
100 |
|
|
101 |
EXTERNAL SCOPY |
EXTERNAL SCOPY |
102 |
|
|
|
integer ncorrec |
|
|
save ncorrec |
|
|
data ncorrec/0/ |
|
|
|
|
103 |
!----------------------------------------------------------------------- |
!----------------------------------------------------------------------- |
104 |
|
|
105 |
! initialisation: |
! initialisation: |