GCC Code Coverage Report


Directory: ./
File: dyn3d_common/divgrad.f
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 14 0.0%
Branches: 0 6 0.0%

Line Branch Exec Source
1 !
2 ! $Header$
3 !
4 SUBROUTINE divgrad (klevel,h, lh, divgra )
5 IMPLICIT NONE
6 c
7 c=======================================================================
8 c
9 c Auteur : P. Le Van
10 c ----------
11 c
12 c lh
13 c calcul de (div( grad )) de h .....
14 c h et lh sont des arguments d'entree pour le s-prog
15 c divgra est un argument de sortie pour le s-prog
16 c
17 c=======================================================================
18 c
19 c declarations:
20 c -------------
21 c
22 include "dimensions.h"
23 include "paramet.h"
24 include "comgeom.h"
25 include "comdissipn.h"
26 c
27 INTEGER klevel
28 REAL h( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )
29 c
30 REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
31
32 INTEGER l,ij,iter,lh
33 c
34 c
35 c
36 CALL SCOPY ( ip1jmp1*klevel,h,1,divgra,1 )
37 c
38 DO 10 iter = 1,lh
39
40 CALL filtreg ( divgra,jjp1,klevel,2,1,.true.,1 )
41
42 CALL grad (klevel,divgra, ghx , ghy )
43 CALL diverg (klevel, ghx , ghy , divgra )
44
45 CALL filtreg ( divgra,jjp1,klevel,2,1,.true.,1)
46
47 DO 5 l = 1,klevel
48 DO 4 ij = 1, ip1jmp1
49 divgra( ij,l ) = - cdivh * divgra( ij,l )
50 4 CONTINUE
51 5 CONTINUE
52 c
53 10 CONTINUE
54 RETURN
55 END
56