trunk/dyn3d/laplacien.f

module laplacien_m

  IMPLICIT NONE

contains

  SUBROUTINE laplacien(klevel, teta)

    ! From LMDZ4/libf/dyn3d/laplacien.F, version 1.1.1.1 2004/05/19 12:53:06
    ! P. Le Van
    ! Calcul de div(grad) de teta.

    USE dimens_m, ONLY: llm
    use divergf_m, only: divergf
    use filtreg_m, only: filtreg
    use grad_m, only: grad
    USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1

    INTEGER, intent(in):: klevel
    REAL, intent(inout):: teta(ip1jmp1, klevel)

    ! Variables locales:
    REAL ghy(ip1jm, llm), ghx(ip1jmp1, llm)

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

    CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE.)
    CALL grad(klevel, teta, ghx, ghy)
    CALL divergf(klevel, ghx, ghy, teta)

  END SUBROUTINE laplacien

end module laplacien_m
1	guez	61	module laplacien_m
2	guez	57
3	guez	61	IMPLICIT NONE
4	guez	3
5	guez	61	contains
6	guez	3
7	guez	61	SUBROUTINE laplacien(klevel, teta)
8	guez	3
9	guez	61	! From LMDZ4/libf/dyn3d/laplacien.F, version 1.1.1.1 2004/05/19 12:53:06
10			! P. Le Van
11			! Calcul de div(grad) de teta.
12	guez	3
13	guez	65	USE dimens_m, ONLY: llm
14			use divergf_m, only: divergf
15			use filtreg_m, only: filtreg
16	guez	61	use grad_m, only: grad
17			USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1
18	guez	3
19	guez	61	INTEGER, intent(in):: klevel
20			REAL, intent(inout):: teta(ip1jmp1, klevel)
21
22			! Variables locales:
23			REAL ghy(ip1jm, llm), ghx(ip1jmp1, llm)
24
25			!-----------------------------------------------------------------
26
27	guez	64	CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE.)
28	guez	61	CALL grad(klevel, teta, ghx, ghy)
29			CALL divergf(klevel, ghx, ghy, teta)
30
31			END SUBROUTINE laplacien
32
33			end module laplacien_m