source: LMDZ5/branches/testing/libf/phymar/yoerrta9.F90 @ 3525

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

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

File size: 1.6 KB
Line 
1MODULE YOERRTA9
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     -----------------------------------------------------------------
11!*    ** *YOERRTA9* - RRTM COEFFICIENTS FOR INTERVAL 9
12!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
13!     -----------------------------------------------------------------
14
15INTEGER_M, PARAMETER :: NG9  = 12
16
17REAL_B :: FRACREFA(NG9,9)
18
19REAL_B , DIMENSION(NG9) :: FRACREFB
20REAL_B , DIMENSION(13) :: N2OREF
21REAL_B , DIMENSION(13) :: H2OREF
22REAL_B , DIMENSION(13) :: CH4REF
23REAL_B , DIMENSION(11) :: ETAREF
24! 36 = 3*NG9     
25REAL_B , DIMENSION(36) :: ABSN2O
26
27REAL_B :: KA(11,5,13,NG9) ,ABSA(715,NG9)
28REAL_B :: KB(5,13:59,NG9) ,ABSB(235,NG9)
29REAL_B :: SELFREF(10,NG9)
30REAL_B :: STRRAT
31
32!     -----------------------------------------------------------------
33! EQUIVALENCE Instruction is suppressed and
34! EQUIVALENCE             is FORCED in RRTM_CMBGB9    (HG, 13-DEC-2003)
35! EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))    ! (OLD)
36!     -----------------------------------------------------------------
37
38!     -----------------------------------------------------------------
39!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
40
41!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
42
43!  NAME     TYPE     PURPOSE
44!  ----   : ----   : ---------------------------------------------------
45! ABSA    : REAL
46! ABSB    : REAL
47! ABSN2O  : REAL   
48! CH4REF  : REAL
49! ETAREF  : REAL
50! FRACREFA: REAL   
51! FRACREFB: REAL
52! H2OREF  : REAL
53! N2OREF  : REAL
54! KA      : REAL     
55! KB      : REAL     
56! SELFREF : REAL     
57! STRRAT  : REAL
58!     -----------------------------------------------------------------
59END MODULE YOERRTA9
Note: See TracBrowser for help on using the repository browser.