13 |
! Objet : calcul de la fonction de Bernouilli aux niveaux s. |
! Objet : calcul de la fonction de Bernouilli aux niveaux s. |
14 |
|
|
15 |
USE dimens_m, ONLY: iim, jjm, llm |
USE dimens_m, ONLY: iim, jjm, llm |
16 |
USE filtreg_m, ONLY: filtreg |
USE filtreg_scal_m, ONLY: filtreg_scal |
17 |
|
|
18 |
REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :) ! (iim + 1, jjm + 1, llm) |
REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :) ! (iim + 1, jjm + 1, llm) |
19 |
|
|
23 |
!----------------------------------------------------------------------- |
!----------------------------------------------------------------------- |
24 |
|
|
25 |
bernoui = phi + ecin |
bernoui = phi + ecin |
26 |
CALL filtreg(bernoui, direct = .true., intensive = .true.) |
CALL filtreg_scal(bernoui, direct = .true., intensive = .true.) |
27 |
|
|
28 |
END function bernoui |
END function bernoui |
29 |
|
|