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: iim, jjm
    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(iim + 1, jjm + 1, klevel)

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

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

    CALL filtreg(teta, direct = .true., intensive = .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	106	use dimens_m, only: iim, jjm
14	guez	65	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	guez	106	REAL, intent(inout):: teta(iim + 1, jjm + 1, klevel)
21	guez	61
22			! Variables locales:
23	guez	103	REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
24	guez	61
25			!-----------------------------------------------------------------
26
27	guez	107	CALL filtreg(teta, direct = .true., intensive = .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