20 |
USE iniadvtrac_m, ONLY: ttext |
USE iniadvtrac_m, ONLY: ttext |
21 |
use initdynav_m, only: histaveid |
use initdynav_m, only: histaveid |
22 |
use nr_util, only: assert |
use nr_util, only: assert |
23 |
USE paramet_m, ONLY: iip1, ip1jm, ip1jmp1, jjp1 |
USE paramet_m, ONLY: ip1jm, ip1jmp1 |
24 |
USE temps, ONLY: itau_dyn |
USE temps, ONLY: itau_dyn |
25 |
|
|
26 |
! Vents covariants : |
! Vents covariants : |
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 |