57 |
|
|
58 |
REAL pks((iim + 1) * (jjm + 1)) ! exner au sol |
REAL pks((iim + 1) * (jjm + 1)) ! exner au sol |
59 |
REAL pk(iim + 1, jjm + 1, llm) ! exner au milieu des couches |
REAL pk(iim + 1, jjm + 1, llm) ! exner au milieu des couches |
60 |
REAL pkf((iim + 1) * (jjm + 1), llm) ! exner filt.au milieu des couches |
REAL pkf(iim + 1, jjm + 1, llm) ! exner filtré au milieu des couches |
61 |
REAL phi(iim + 1, jjm + 1, llm) ! geopotential |
REAL phi(iim + 1, jjm + 1, llm) ! geopotential |
62 |
REAL w((iim + 1) * (jjm + 1), llm) ! vitesse verticale |
REAL w((iim + 1) * (jjm + 1), llm) ! vitesse verticale |
63 |
|
|