| [3331] | 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 | IF (LHOOK) CALL DR_HOOK('SURRTFTR',0,ZHOOK_HANDLE) |
|---|
| 17 | 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 | & 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,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 | & 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 | & 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 | & 0.0022199750_JPRB,0.0014140010_JPRB,0.000533_JPRB ,0.000075_JPRB /) |
|---|
| 81 | |
|---|
| 82 | ! ----------------------------------------------------------------- |
|---|
| 83 | IF (LHOOK) CALL DR_HOOK('SURRTFTR',1,ZHOOK_HANDLE) |
|---|
| 84 | END SUBROUTINE SURRTFTR |
|---|
