1 |
guez |
104 |
module bernoui_m |
2 |
guez |
3 |
|
3 |
guez |
81 |
IMPLICIT NONE |
4 |
|
|
|
5 |
guez |
104 |
contains |
6 |
guez |
81 |
|
7 |
guez |
104 |
SUBROUTINE bernoui(phi, ecin, bern) |
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 |
104 |
! Objet: calcul de la fonction de Bernouilli aux niveaux s. |
14 |
|
|
! fonction de Bernouilli = bern = filtre de(geopotentiel + energ.cinet.) |
15 |
guez |
81 |
|
16 |
guez |
104 |
USE dimens_m, ONLY: jjm, llm |
17 |
|
|
USE filtreg_m, ONLY: filtreg |
18 |
guez |
81 |
|
19 |
guez |
104 |
REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :)! (iim + 1, jjm + 1, llm) |
20 |
|
|
REAL, intent(out):: bern(:, :, :) ! (iim + 1, jjm + 1, llm) |
21 |
guez |
81 |
|
22 |
guez |
104 |
!----------------------------------------------------------------------- |
23 |
guez |
81 |
|
24 |
guez |
104 |
bern = phi + ecin |
25 |
guez |
107 |
CALL filtreg(bern, direct = .true., intensive = .true.) |
26 |
guez |
81 |
|
27 |
guez |
104 |
END SUBROUTINE bernoui |
28 |
guez |
81 |
|
29 |
guez |
104 |
end module bernoui_m |