38 |
REAL, intent(inout):: teta(ip1jmp1, llm) ! temperature potentielle |
REAL, intent(inout):: teta(ip1jmp1, llm) ! temperature potentielle |
39 |
REAL q(ip1jmp1, llm) ! temperature potentielle |
REAL q(ip1jmp1, llm) ! temperature potentielle |
40 |
REAL ps(ip1jmp1) ! pression au sol |
REAL ps(ip1jmp1) ! pression au sol |
41 |
REAL masse(ip1jmp1, llm) ! masse d'air |
REAL, intent(out):: masse(ip1jmp1, llm) ! masse d'air |
42 |
|
|
43 |
! variables dynamiques pour les reanalyses. |
! variables dynamiques pour les reanalyses. |
44 |
REAL, save:: ucovrea1(ip1jmp1, llm), vcovrea1(ip1jm, llm) !vts cov reas |
REAL, save:: ucovrea1(ip1jmp1, llm), vcovrea1(ip1jm, llm) !vts cov reas |