9 |
! Passage aux variables du mod\`ele (vents covariants, |
! Passage aux variables du mod\`ele (vents covariants, |
10 |
! temp\'erature potentielle et humidit\'e sp\'ecifique). |
! temp\'erature potentielle et humidit\'e sp\'ecifique). |
11 |
|
|
12 |
use comconst, only: cpp, kappa |
use comconst, only: cpp |
13 |
use comgeom, only: cu_2d, cv_2d |
use comgeom, only: cu_2d, cv_2d |
14 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
|
use disvert_m, only: preff |
|
15 |
use paramet_m, only: iip1, jjp1 |
use paramet_m, only: iip1, jjp1 |
16 |
|
|
17 |
real, intent(in):: pk(iip1, jjp1, llm) |
real, intent(in):: pk(iip1, jjp1, llm) |