LMDZ
surrtftr.F90
Go to the documentation of this file.
1 SUBROUTINE surrtftr
2 
3 ! Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
4 ! by JJMorcrette, ECMWF
5 ! ------------------------------------------------------------------
6 
7 #include "tsmbkind.h"
8 
9 USE yoerrtftr, ONLY : ngc ,ngs ,ngn ,ngb ,ngm , wt
10 
11 ! ------------------------------------------------------------------
12 
13 
14 IMPLICIT NONE
15 ngc( :) = (/8, 14, 16, 14, 16, 8, 12, 8, 12, 6, 8, 8, 4, 2, 2, 2 /)
16 
17 ngs( :) = (/&
18  &8, 22, 38, 52, 68, 76, 88, 96, &
19  &108, 114, 122, 130, 134, 136, 138, 140/)
20 ngm( :) = (/&
21  &1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &! Band 1
22  &1,2,3,4,5,6,7,8,9,10,11,12,13,13,14,14, &! Band 2
23  &1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &! Band 3
24  &1,2,3,4,5,6,7,8,9,10,11,12,13,14,14,14, &! Band 4
25  &1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &! Band 5
26  &1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &! Band 6
27  &1,1,2,2,3,4,5,6,7,8,9,10,11,11,12,12, &! Band 7
28  &1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &! Band 8
29  &1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12, &! Band 9
30  &1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, &! Band 10
31  &1,2,3,3,4,4,5,5,6,6,7,7,7,8,8,8, &! Band 11
32  &1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &! Band 12
33  &1,1,1,2,2,2,3,3,3,3,4,4,4,4,4,4, &! Band 13
34  &1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &! Band 14
35  &1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &! Band 15
36  &1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2/) ! Band 16
37 
38 ngn( :) = (/&
39  &2,2,2,2,2,2,2,2, &! Band 1
40  &1,1,1,1,1,1,1,1,1,1,1,1,2,2, &! Band 2
41  &1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &! Band 3
42  &1,1,1,1,1,1,1,1,1,1,1,1,1,3, &! Band 4
43  &1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &! Band 5
44  &2,2,2,2,2,2,2,2, &! Band 6
45  &2,2,1,1,1,1,1,1,1,1,2,2, &! Band 7
46  &2,2,2,2,2,2,2,2, &! Band 8
47  &1,1,1,1,1,1,1,1,2,2,2,2, &! Band 9
48  &2,2,2,2,4,4, &! Band 10
49  &1,1,2,2,2,2,3,3, &! Band 11
50  &1,1,1,1,2,2,4,4, &! Band 12
51  &3,3,4,6, &! Band 13
52  &8,8, &! Band 14
53  &8,8, &! Band 15
54  &8,8/) ! Band 16
55 
56 ngb( :) = (/&
57  &1,1,1,1,1,1,1,1, &! Band 1
58  &2,2,2,2,2,2,2,2,2,2,2,2,2,2, &! Band 2
59  &3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, &! Band 3
60  &4,4,4,4,4,4,4,4,4,4,4,4,4,4, &! Band 4
61  &5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5, &! Band 5
62  &6,6,6,6,6,6,6,6, &! Band 6
63  &7,7,7,7,7,7,7,7,7,7,7,7, &! Band 7
64  &8,8,8,8,8,8,8,8, &! Band 8
65  &9,9,9,9,9,9,9,9,9,9,9,9, &! Band 9
66  &10,10,10,10,10,10, &! Band 10
67  &11,11,11,11,11,11,11,11, &! Band 11
68  &12,12,12,12,12,12,12,12, &! Band 12
69  &13,13,13,13, &! Band 13
70  &14,14, &! Band 14
71  &15,15, &! Band 15
72  &16,16/) ! Band 16
73 
74 wt( :) = (/&
75  &0.1527534276_jprb,0.1491729617_jprb,0.1420961469_jprb,0.1316886544_jprb,&
76  &0.1181945205_jprb,0.1019300893_jprb,0.0832767040_jprb,0.0626720116_jprb,&
77  &0.0424925_jprb ,0.0046269894_jprb,0.0038279891_jprb,0.0030260086_jprb,&
78  &0.0022199750_jprb,0.0014140010_jprb,0.000533_jprb ,0.000075_jprb /)
79 
80 ! -----------------------------------------------------------------
81 RETURN
82 END SUBROUTINE surrtftr
yoerrtftr::ngb
integer(kind=jpim), dimension(jpgpt) ngb
Definition: yoerrtftr.F90:18
surrtftr
subroutine surrtftr
Definition: surrtftr.F90:2
yoerrtftr::ngm
integer(kind=jpim), dimension(jpg *jpband) ngm
Definition: yoerrtftr.F90:20
yoerrtftr::wt
real(kind=jprb), dimension(jpg) wt
Definition: yoerrtftr.F90:21
yoerrtftr::ngn
integer(kind=jpim), dimension(jpgpt) ngn
Definition: yoerrtftr.F90:17
yoerrtftr::ngc
integer(kind=jpim), dimension(jpband) ngc
Definition: yoerrtftr.F90:15
yoerrtftr::ngs
integer(kind=jpim), dimension(jpband) ngs
Definition: yoerrtftr.F90:16