22 |
use filtreg_m, only: filtreg |
use filtreg_m, only: filtreg |
23 |
|
|
24 |
! Arguments: |
! Arguments: |
25 |
INTEGER, INTENT (IN) :: itau |
INTEGER, INTENT(IN) :: itau |
26 |
REAL :: ucov(ip1jmp1, llm), masse(ip1jmp1, llm) |
REAL :: ucov(ip1jmp1, llm), masse(ip1jmp1, llm) |
27 |
real, intent(in):: teta(ip1jmp1, llm) |
real, intent(in):: teta(ip1jmp1, llm) |
28 |
REAL :: ps(ip1jmp1), phis(ip1jmp1) |
REAL, INTENT(IN):: ps(ip1jmp1), phis(ip1jmp1) |
29 |
REAL :: vorpot(ip1jm, llm) |
REAL :: vorpot(ip1jm, llm) |
30 |
REAL :: phi(ip1jmp1, llm), bern(ip1jmp1, llm) |
REAL :: phi(ip1jmp1, llm), bern(ip1jmp1, llm) |
31 |
REAL :: dp(ip1jmp1) |
REAL :: dp(ip1jmp1) |