11 |
! Objet : calcul des termes d'advection verticale pour u, v, teta. |
! Objet : calcul des termes d'advection verticale pour u, v, teta. |
12 |
! Ces termes sont ajoutés à du, dv, dteta. |
! Ces termes sont ajoutés à du, dv, dteta. |
13 |
|
|
14 |
USE dimens_m, ONLY : iim, llm |
USE dimensions, ONLY : iim, llm |
15 |
USE paramet_m, ONLY : iip1, iip2, ip1jm, ip1jmp1 |
USE paramet_m, ONLY : iip1, iip2, ip1jm, ip1jmp1 |
|
USE comconst, ONLY : daysec |
|
|
USE comgeom, ONLY : unsaire |
|
16 |
|
|
17 |
REAL, intent(in):: ucov(ip1jmp1, llm), vcov(ip1jm, llm) |
REAL, intent(in):: ucov(ip1jmp1, llm), vcov(ip1jm, llm) |
18 |
real, intent(in):: teta(ip1jmp1, llm) |
real, intent(in):: teta(ip1jmp1, llm) |