My Project
 All Classes Files Functions Variables Macros
laplacien.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE laplacien ( klevel, teta, divgra )
5 c
6 c P. Le Van
7 c
8 c ************************************************************
9 c .... calcul de (div( grad )) de teta .....
10 c ************************************************************
11 c klevel et teta sont des arguments d'entree pour le s-prog
12 c divgra est un argument de sortie pour le s-prog
13 c
14  IMPLICIT NONE
15 c
16 #include "dimensions.h"
17 #include "paramet.h"
18 #include "comgeom.h"
19 
20 c
21 c ......... variables en arguments ..............
22 c
23  INTEGER klevel
24  REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
25 c
26 c ............ variables locales ..............
27 c
28  REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
29 c .......................................................
30 
31 
32 c
33  CALL scopy( ip1jmp1 * klevel, teta, 1, divgra, 1 )
34 
35  CALL filtreg( divgra, jjp1, klevel, 2, 1, .true., 1 )
36  CALL grad( klevel,divgra, ghx , ghy )
37  CALL divergf( klevel, ghx , ghy , divgra )
38 
39  RETURN
40  END