source: LMDZ6/branches/Optimisation_LMDZ/libf/phymar/surrtftr.F90 @ 4521

Last change on this file since 4521 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 4.2 KB
Line 
1SUBROUTINE SURRTFTR
2
3!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
4!     by JJMorcrette, ECMWF
5!     ------------------------------------------------------------------
6
7#include "tsmbkind.h"
8
9USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
10
11!     ------------------------------------------------------------------
12
13
14IMPLICIT NONE
15NGC( :) = (/8, 14, 16, 14, 16, 8, 12, 8, 12, 6, 8, 8, 4, 2, 2, 2 /)
16
17NGS( :) = (/&
18             &8,  22,  38,  52,  68,  76,  88,  96, &
19           &108, 114, 122, 130, 134, 136, 138, 140/)
20NGM( :) = (/&
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
38NGN( :) = (/&
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
56NGB( :) = (/&
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
74WT( :) = (/&
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!     -----------------------------------------------------------------
81RETURN
82END SUBROUTINE SURRTFTR
Note: See TracBrowser for help on using the repository browser.