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