trunk/dyn3d/bernoui.f

module bernoui_m

  IMPLICIT NONE

contains

  SUBROUTINE bernoui(phi, ecin, bern)

    ! 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.
    ! fonction de Bernouilli = bern = filtre de(geopotentiel + energ.cinet.)

    USE dimens_m, ONLY: jjm, llm
    USE filtreg_m, ONLY: filtreg

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

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

    bern = phi + ecin
    CALL filtreg(bern, direct = .true., intensive = .true.)

  END SUBROUTINE 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	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