trunk/dyn3d/laplacien_gam.f

module laplacien_gam_m

  IMPLICIT NONE

contains

  SUBROUTINE laplacien_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, &
       unsapolsga, teta, divgra)

    ! From LMDZ4/libf/dyn3d/laplacien_gam.F,v 1.1.1.1, 2004/05/19 12:53:06

    ! P. Le Van

    ! ************************************************************

    ! ....   calcul de  (div( grad ))   de   teta  .....
    ! ************************************************************
    ! klevel et teta  sont des arguments  d'entree pour le s-prog
    ! divgra     est  un argument  de sortie pour le s-prog

    USE comgeom
    USE dimensions
    use diverg_gam_m, only: diverg_gam
    USE grad_m, ONLY: grad
    USE paramet_m


    ! ............     variables  en arguments    ..........

    INTEGER, INTENT (IN) :: klevel
    REAL teta(ip1jmp1, klevel), divgra(ip1jmp1, klevel)
    REAL cuvsga(ip1jm), cvusga(ip1jmp1), unsaigam(ip1jmp1), unsapolnga, &
         unsapolsga

    ! ...........    variables  locales    .................

    REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
    ! ......................................................

    CALL scopy(ip1jmp1*klevel, teta, 1, divgra, 1)
    CALL grad(klevel, divgra, ghx, ghy)
    CALL diverg_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, unsapolsga, &
         ghx, ghy, divgra)

  END SUBROUTINE laplacien_gam

end module laplacien_gam_m
1	guez	207	module laplacien_gam_m
2	guez	3
3	guez	207	IMPLICIT NONE
4	guez	3
5	guez	207	contains
6	guez	3
7	guez	207	SUBROUTINE laplacien_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, &
8			unsapolsga, teta, divgra)
9	guez	3
10	guez	207	! From LMDZ4/libf/dyn3d/laplacien_gam.F,v 1.1.1.1, 2004/05/19 12:53:06
11	guez	3
12	guez	207	! P. Le Van
13	guez	3
14	guez	207	! ************************************************************
15	guez	81
16	guez	207	! .... calcul de (div( grad )) de teta .....
17			! ************************************************************
18			! klevel et teta sont des arguments d'entree pour le s-prog
19			! divgra est un argument de sortie pour le s-prog
20	guez	81
21	guez	207	USE comgeom
22	guez	265	USE dimensions
23	guez	207	use diverg_gam_m, only: diverg_gam
24			USE grad_m, ONLY: grad
25			USE paramet_m
26	guez	81
27
28	guez	207	! ............ variables en arguments ..........
29	guez	81
30	guez	207	INTEGER, INTENT (IN) :: klevel
31			REAL teta(ip1jmp1, klevel), divgra(ip1jmp1, klevel)
32			REAL cuvsga(ip1jm), cvusga(ip1jmp1), unsaigam(ip1jmp1), unsapolnga, &
33			unsapolsga
34	guez	81
35	guez	207	! ........... variables locales .................
36	guez	81
37	guez	207	REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
38			! ......................................................
39	guez	81
40	guez	207	CALL scopy(ip1jmp1*klevel, teta, 1, divgra, 1)
41			CALL grad(klevel, divgra, ghx, ghy)
42			CALL diverg_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, unsapolsga, &
43			ghx, ghy, divgra)
44	guez	81
45	guez	207	END SUBROUTINE laplacien_gam
46	guez	81
47	guez	207	end module laplacien_gam_m