libf/dyn3d/laplacien.f90

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 grad_m, only: grad
    use filtreg_m, only: filtreg
    use divergf_m, only: divergf
    USE dimens_m, ONLY: llm
    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	61	use grad_m, only: grad
14			use filtreg_m, only: filtreg
15			use divergf_m, only: divergf
16			USE dimens_m, ONLY: llm
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