GCC Code Coverage Report

Directory: ./
File: rad/surrtftr.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 10 10 100.0%
Branches: 2 4 50.0%
Line Branch Exec Source
1 1 SUBROUTINE SURRTFTR
2
3 ! Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
4 ! by JJMorcrette, ECMWF
5 ! ------------------------------------------------------------------
6
7 USE PARKIND1 ,ONLY : JPIM ,JPRB
8 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
9
10 USE YOERRTFTR, ONLY : NGC ,NGS ,NGN ,NGB ,NGM , WT
11
12 ! ------------------------------------------------------------------
13
14 IMPLICIT NONE
15 REAL(KIND=JPRB) :: ZHOOK_HANDLE
16
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('SURRTFTR',0,ZHOOK_HANDLE)
17 1 NGC( :) = (/8, 14, 16, 14, 16, 8, 12, 8, 12, 6, 8, 8, 4, 2, 2, 2 /)
18
19 NGS( :) = (/&
20 & 8, 22, 38, 52, 68, 76, 88, 96, &
21 1 & 108, 114, 122, 130, 134, 136, 138, 140/)
22 NGM( :) = (/&
23 & 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &! Band 1
24 & 1,2,3,4,5,6,7,8,9,10,11,12,13,13,14,14, &! Band 2
25 & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &! Band 3
26 & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,14,14, &! Band 4
27 & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &! Band 5
28 & 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &! Band 6
29 & 1,1,2,2,3,4,5,6,7,8,9,10,11,11,12,12, &! Band 7
30 & 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &! Band 8
31 & 1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12, &! Band 9
32 & 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, &! Band 10
33 & 1,2,3,3,4,4,5,5,6,6,7,7,7,8,8,8, &! Band 11
34 & 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &! Band 12
35 & 1,1,1,2,2,2,3,3,3,3,4,4,4,4,4,4, &! Band 13
36 & 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &! Band 14
37 & 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &! Band 15
38 1 & 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2/) ! Band 16
39
40 NGN( :) = (/&
41 & 2,2,2,2,2,2,2,2, &! Band 1
42 & 1,1,1,1,1,1,1,1,1,1,1,1,2,2, &! Band 2
43 & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &! Band 3
44 & 1,1,1,1,1,1,1,1,1,1,1,1,1,3, &! Band 4
45 & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &! Band 5
46 & 2,2,2,2,2,2,2,2, &! Band 6
47 & 2,2,1,1,1,1,1,1,1,1,2,2, &! Band 7
48 & 2,2,2,2,2,2,2,2, &! Band 8
49 & 1,1,1,1,1,1,1,1,2,2,2,2, &! Band 9
50 & 2,2,2,2,4,4, &! Band 10
51 & 1,1,2,2,2,2,3,3, &! Band 11
52 & 1,1,1,1,2,2,4,4, &! Band 12
53 & 3,3,4,6, &! Band 13
54 & 8,8, &! Band 14
55 & 8,8, &! Band 15
56 1 & 8,8/) ! Band 16
57
58 NGB( :) = (/&
59 & 1,1,1,1,1,1,1,1, &! Band 1
60 & 2,2,2,2,2,2,2,2,2,2,2,2,2,2, &! Band 2
61 & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, &! Band 3
62 & 4,4,4,4,4,4,4,4,4,4,4,4,4,4, &! Band 4
63 & 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, &! Band 5
64 & 6,6,6,6,6,6,6,6, &! Band 6
65 & 7,7,7,7,7,7,7,7,7,7,7,7, &! Band 7
66 & 8,8,8,8,8,8,8,8, &! Band 8
67 & 9,9,9,9,9,9,9,9,9,9,9,9, &! Band 9
68 & 10,10,10,10,10,10, &! Band 10
69 & 11,11,11,11,11,11,11,11, &! Band 11
70 & 12,12,12,12,12,12,12,12, &! Band 12
71 & 13,13,13,13, &! Band 13
72 & 14,14, &! Band 14
73 & 15,15, &! Band 15
74 1 & 16,16/) ! Band 16
75
76 WT( :) = (/&
77 & 0.1527534276_JPRB,0.1491729617_JPRB,0.1420961469_JPRB,0.1316886544_JPRB,&
78 & 0.1181945205_JPRB,0.1019300893_JPRB,0.0832767040_JPRB,0.0626720116_JPRB,&
79 & 0.0424925_JPRB ,0.0046269894_JPRB,0.0038279891_JPRB,0.0030260086_JPRB,&
80 1 & 0.0022199750_JPRB,0.0014140010_JPRB,0.000533_JPRB ,0.000075_JPRB /)
81
82 ! -----------------------------------------------------------------
83
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('SURRTFTR',1,ZHOOK_HANDLE)
84 1 END SUBROUTINE SURRTFTR
85