source: LMDZ5/trunk/libf/phylmd/rrtm/surrtftr.F90 @ 5224

Last change on this file since 5224 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM


Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 3.9 KB
Line 
1SUBROUTINE SURRTFTR
2
3!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
4!     by JJMorcrette, ECMWF
5!     ------------------------------------------------------------------
6
7USE PARKIND1  ,ONLY : JPIM     ,JPRB
8USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
9
10USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
11
12!     ------------------------------------------------------------------
13
14IMPLICIT NONE
15REAL(KIND=JPRB) :: ZHOOK_HANDLE
16IF (LHOOK) CALL DR_HOOK('SURRTFTR',0,ZHOOK_HANDLE)
17NGC( :) = (/8, 14, 16, 14, 16, 8, 12, 8, 12, 6, 8, 8, 4, 2, 2, 2 /)
18
19NGS( :) = (/&
20 & 8,  22,  38,  52,  68,  76,  88,  96, &
21 & 108, 114, 122, 130, 134, 136, 138, 140/) 
22NGM( :) = (/&
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
40NGN( :) = (/&
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
58NGB( :) = (/&
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
76WT( :) = (/&
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!     -----------------------------------------------------------------
83IF (LHOOK) CALL DR_HOOK('SURRTFTR',1,ZHOOK_HANDLE)
84END SUBROUTINE SURRTFTR
Note: See TracBrowser for help on using the repository browser.