trunk/dyn3d/bernoui.f90

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 dimensions, 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	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