trunk/dyn3d/bernoui.f

module bernoui_m

  IMPLICIT NONE

contains

  function bernoui(phi, ecin)

    ! From LMDZ4/libf/dyn3d/bernoui.F, version 1.1.1.1 2004/05/19 12:53:06

    ! Author: P. Le Van

    ! Objet : calcul de la fonction de Bernouilli aux niveaux s.
 
    USE dimens_m, ONLY: iim, jjm, llm
    USE filtreg_scal_m, ONLY: filtreg_scal

    REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :) ! (iim + 1, jjm + 1, llm)

    REAL bernoui(iim + 1, jjm + 1, llm)
    ! fonction de Bernouilli = filtre de (géopotentiel + énergie cinétique)

    !-----------------------------------------------------------------------

    bernoui = phi + ecin
    CALL filtreg_scal(bernoui, direct = .true., intensive = .true.)

  END function bernoui

end module bernoui_m
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