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 |