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., 1)
    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			CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE., 1)
28			CALL grad(klevel, teta, ghx, ghy)
29			CALL divergf(klevel, ghx, ghy, teta)
30
31			END SUBROUTINE laplacien
32
33			end module laplacien_m