24 |
! teta température potentielle, p pression aux interfaces, |
! teta température potentielle, p pression aux interfaces, |
25 |
! pk exner au milieu des couches nécessaire pour calculer Qsat |
! pk exner au milieu des couches nécessaire pour calculer Qsat |
26 |
|
|
27 |
USE dimens_m, ONLY : iim, llm |
USE dimensions, ONLY : iim, llm |
28 |
use FCTTRE, only: foeew |
use FCTTRE, only: foeew |
29 |
USE paramet_m, ONLY : iip1, iip2, ijp1llm, ip1jm, ip1jmp1, llmp1 |
USE paramet_m, ONLY : iip1, iip2, ijp1llm, ip1jm, ip1jmp1, llmp1 |
30 |
USE comconst, ONLY : cpp |
USE comconst, ONLY : cpp |