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