1 |
module bernoui_m |
2 |
|
3 |
IMPLICIT NONE |
4 |
|
5 |
contains |
6 |
|
7 |
function bernoui(phi, ecin) |
8 |
|
9 |
! From LMDZ4/libf/dyn3d/bernoui.F, version 1.1.1.1 2004/05/19 12:53:06 |
10 |
|
11 |
! Author: P. Le Van |
12 |
|
13 |
! Objet : calcul de la fonction de Bernouilli aux niveaux s. |
14 |
|
15 |
USE dimensions, ONLY: iim, jjm, llm |
16 |
USE filtreg_scal_m, ONLY: filtreg_scal |
17 |
|
18 |
REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :) ! (iim + 1, jjm + 1, llm) |
19 |
|
20 |
REAL bernoui(iim + 1, jjm + 1, llm) |
21 |
! fonction de Bernouilli = filtre de (géopotentiel + énergie cinétique) |
22 |
|
23 |
!----------------------------------------------------------------------- |
24 |
|
25 |
bernoui = phi + ecin |
26 |
CALL filtreg_scal(bernoui, direct = .true., intensive = .true.) |
27 |
|
28 |
END function bernoui |
29 |
|
30 |
end module bernoui_m |