My Project
 All Classes Files Functions Variables Macros
laplacien_gam.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE laplacien_gam ( klevel, cuvsga, cvusga, unsaigam ,
5  * unsapolnga, unsapolsga, teta, divgra )
6 
7 c P. Le Van
8 c
9 c ************************************************************
10 c
11 c .... calcul de (div( grad )) de teta .....
12 c ************************************************************
13 c klevel et teta sont des arguments d'entree pour le s-prog
14 c divgra est un argument de sortie pour le s-prog
15 c
16  IMPLICIT NONE
17 c
18 #include "dimensions.h"
19 #include "paramet.h"
20 #include "comgeom.h"
21 
22 c
23 c ............ variables en arguments ..........
24 c
25  INTEGER klevel
26  REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
27  REAL cuvsga(ip1jm) , cvusga( ip1jmp1 ),unsaigam(ip1jmp1),
28  * unsapolnga, unsapolsga
29 c
30 c ........... variables locales .................
31 c
32  REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
33 c ......................................................
34 
35 c
36 c
37 c ... cvuscugam = ( cvu/ cu ) ** (- gamdissip )
38 c ... cuvscvgam = ( cuv/ cv ) ** (- gamdissip ) calcules dans inigeom ..
39 c ... unsairegam = 1. / aire ** (- gamdissip )
40 c
41 
42  CALL scopy( ip1jmp1 * klevel, teta, 1, divgra, 1 )
43 c
44  CALL grad( klevel, divgra, ghx, ghy )
45 c
46  CALL diverg_gam( klevel, cuvsga, cvusga, unsaigam ,
47  * unsapolnga, unsapolsga, ghx , ghy , divgra )
48 
49 c
50 
51 
52  RETURN
53  END