30 |
REAL, intent(in):: teta(:, :, :) ! (iim + 1, jjm + 1, llm) |
REAL, intent(in):: teta(:, :, :) ! (iim + 1, jjm + 1, llm) |
31 |
! temperature potentielle |
! temperature potentielle |
32 |
|
|
33 |
|
real, intent(in):: pk(:, :, :) ! (iim + 1, jjm + 1, llm) |
34 |
|
|
35 |
real, intent(in):: phi(:, :, :) ! (iim + 1, jjm + 1, llm) |
real, intent(in):: phi(:, :, :) ! (iim + 1, jjm + 1, llm) |
36 |
! geopotentiel instantane |
! geopotentiel instantane |
37 |
|
|
38 |
real, intent(in):: pk(:, :, :) ! (iim + 1, jjm + 1, llm) |
REAL, intent(in):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx) traceurs |
|
REAL, intent(in):: ps(:, :) ! (iim + 1, jjm + 1) pression au sol |
|
39 |
real, intent(in):: masse(:, :, :) ! (iim + 1, jjm + 1, llm) |
real, intent(in):: masse(:, :, :) ! (iim + 1, jjm + 1, llm) |
40 |
|
REAL, intent(in):: ps(:, :) ! (iim + 1, jjm + 1) pression au sol |
41 |
REAL, intent(in):: phis(:, :) ! (iim + 1, jjm + 1) geopotentiel au sol |
REAL, intent(in):: phis(:, :) ! (iim + 1, jjm + 1) geopotentiel au sol |
|
REAL, intent(in):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx) traceurs |
|
42 |
integer, intent(in):: time ! temps de l'ecriture |
integer, intent(in):: time ! temps de l'ecriture |
43 |
|
|
44 |
! Variables locales |
! Variables locales |