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, jjm, llm |
USE dimensions, ONLY: iim, jjm, llm |
16 |
USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1, jjp1 |
USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1 |
17 |
USE filtreg_scal_m, ONLY: filtreg_scal |
USE filtreg_scal_m, ONLY: filtreg_scal |
18 |
|
|
19 |
REAL, intent(in):: teta(ip1jmp1, llm) |
REAL, intent(in):: teta(ip1jmp1, llm) |