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 |
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 |
IF (LHOOK) CALL DR_HOOK('SURRTFTR',1,ZHOOK_HANDLE) |
84 |
|
1 |
END SUBROUTINE SURRTFTR |