10 |
use paramet_m, only: ip1jmp1 |
use paramet_m, only: ip1jmp1 |
11 |
use comconst, only: dtvr |
use comconst, only: dtvr |
12 |
use conf_gcm_m, only: iapp_tracvl |
use conf_gcm_m, only: iapp_tracvl |
13 |
|
use filtreg_m, only: filtreg |
14 |
|
|
15 |
IMPLICIT NONE |
IMPLICIT NONE |
16 |
|
|
17 |
REAL pbaru(ip1jmp1, llm), pbarv((iim + 1) * jjm, llm), masse(ip1jmp1, llm) |
REAL pbaru(ip1jmp1, llm), pbarv((iim + 1) * jjm, llm), masse(ip1jmp1, llm) |
18 |
REAL p(ip1jmp1, llm + 1), q(ip1jmp1, llm, nqmx) |
REAL, intent(in):: p(ip1jmp1, llm + 1) |
19 |
|
real q(ip1jmp1, llm, nqmx) |
20 |
|
|
21 |
real, intent(out):: dq(ip1jmp1, llm, 2) |
real, intent(out):: dq(ip1jmp1, llm, 2) |
22 |
! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide) |
! (n'est utilisé et dimensionné que pour l'eau vapeur et liquide) |