27 |
real, intent(out):: dq(iim + 1, jjm + 1, llm, 2) |
real, intent(out):: dq(iim + 1, jjm + 1, llm, 2) |
28 |
! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide) |
! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide) |
29 |
|
|
30 |
REAL teta(ip1jmp1, llm), pk(ip1jmp1, llm) |
REAL, intent(in):: teta(ip1jmp1, llm) |
31 |
|
real pk(ip1jmp1, llm) |
32 |
|
|
33 |
! Local: |
! Local: |
34 |
|
|
51 |
CALL qminimum(q, 2, finmasse) |
CALL qminimum(q, 2, finmasse) |
52 |
|
|
53 |
finmasse = masse |
finmasse = masse |
54 |
CALL filtreg(finmasse, jjm + 1, llm, -2, 2, .TRUE., 1) |
CALL filtreg(finmasse, jjm + 1, llm, -2, 2, .TRUE.) |
55 |
|
|
56 |
! Calcul de "dq" pour l'eau, pour le passer à la physique |
! Calcul de "dq" pour l'eau, pour le passer à la physique |
57 |
dtvrtrac = iapp_tracvl * dtvr |
dtvrtrac = iapp_tracvl * dtvr |