13 |
! potentielle. |
! potentielle. |
14 |
|
|
15 |
USE dimens_m, ONLY: iim, jjm, llm |
USE dimens_m, ONLY: iim, jjm, llm |
16 |
USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1, jjp1 |
USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1 |
17 |
USE filtreg_m, ONLY: filtreg |
USE filtreg_scal_m, ONLY: filtreg_scal |
18 |
|
|
19 |
REAL, intent(in):: teta(ip1jmp1, llm) |
REAL, intent(in):: teta(ip1jmp1, llm) |
20 |
REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
44 |
|
|
45 |
! stockage dans dh de la convergence horizontale filtrée du flux |
! stockage dans dh de la convergence horizontale filtrée du flux |
46 |
! d'enthalpie potentielle |
! d'enthalpie potentielle |
47 |
CALL filtreg(dteta, direct = .true., intensive = .false.) |
CALL filtreg_scal(dteta, direct = .true., intensive = .false.) |
48 |
|
|
49 |
END SUBROUTINE dteta1 |
END SUBROUTINE dteta1 |
50 |
|
|