source: LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrta8.F90 @ 5403

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

Merged trunk changes r1920:1997 into testing branch

  • 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: 1.7 KB
Line 
1MODULE YOERRTA8
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     -----------------------------------------------------------------
10!*    ** *YOERRTA8* - RRTM COEFFICIENTS FOR INTERVAL 8
11!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
12!     -----------------------------------------------------------------
13
14INTEGER(KIND=JPIM), PARAMETER :: NG8  = 8
15
16REAL(KIND=JPRB) , DIMENSION(NG8) :: FRACREFA
17REAL(KIND=JPRB) , DIMENSION(NG8) :: FRACREFB
18REAL(KIND=JPRB) , DIMENSION(NG8) :: CFC12
19REAL(KIND=JPRB) , DIMENSION(NG8) :: CFC22ADJ
20REAL(KIND=JPRB) , DIMENSION(NG8) :: ABSCO2A
21REAL(KIND=JPRB) , DIMENSION(NG8) :: ABSCO2B
22REAL(KIND=JPRB) , DIMENSION(NG8) :: ABSN2OA
23REAL(KIND=JPRB) , DIMENSION(NG8) :: ABSN2OB
24REAL(KIND=JPRB) , DIMENSION(59)  :: H2OREF
25REAL(KIND=JPRB) , DIMENSION(59)  :: N2OREF
26REAL(KIND=JPRB) , DIMENSION(59)  :: O3REF
27
28REAL(KIND=JPRB) :: KA(5,7,NG8)    ,ABSA(35,NG8)
29REAL(KIND=JPRB) :: KB(5,7:59,NG8) ,ABSB(265,NG8)
30REAL(KIND=JPRB) :: SELFREF(10,NG8)
31
32EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,7,1),ABSB(1,1))
33
34!     -----------------------------------------------------------------
35!        * E.C.M.W.F. PHYSICS PACKAGE *
36
37!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
38
39!  NAME     TYPE     PURPOSE
40!  ----   : ----   : ---------------------------------------------------
41! ABSA    : REAL
42! ABSB    : REAL
43! ABSCO2A : REAL     
44! ABSCO2B : REAL     
45! ABSN2OA : REAL     
46! ABSN2OB : REAL
47! CFC12   : REAL     
48! CFC22ADJ: REAL     
49! FRACREFA: REAL   
50! FRACREFB: REAL   
51! H2OREF  : REAL   
52! KA      : REAL     
53! KB      : REAL     
54! N2OREF  : REAL   
55! O3REF   : REAL   
56! SELFREF : REAL     
57!     -----------------------------------------------------------------
58END MODULE YOERRTA8
Note: See TracBrowser for help on using the repository browser.