12 |
! Calcul du terme de convergence horizontale du flux d'enthalpie |
! Calcul du terme de convergence horizontale du flux d'enthalpie |
13 |
! potentielle. |
! potentielle. |
14 |
|
|
15 |
USE dimens_m, ONLY: iim, llm |
USE dimens_m, ONLY: iim, jjm, llm |
16 |
USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1, jjp1 |
USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1, jjp1 |
17 |
USE filtreg_m, ONLY: filtreg |
USE filtreg_m, ONLY: filtreg |
18 |
|
|
19 |
REAL, intent(in):: teta(ip1jmp1, llm) |
REAL, intent(in):: teta(ip1jmp1, llm) |
20 |
REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
21 |
REAL, intent(out):: dteta(ip1jmp1, llm) |
REAL, intent(out):: dteta(iim + 1, jjm + 1, llm) |
22 |
|
|
23 |
! Local: |
! Local: |
24 |
INTEGER l, ij |
INTEGER l, ij |