source: LMDZ5/trunk/libf/phymar/yoerrta8.F90 @ 2433

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.8 KB
Line 
1MODULE YOERRTA8
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     -----------------------------------------------------------------
11!*    ** *YOERRTA8* - RRTM COEFFICIENTS FOR INTERVAL 8
12!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
13!     -----------------------------------------------------------------
14
15INTEGER_M, PARAMETER :: NG8  = 8
16
17REAL_B , DIMENSION(NG8) :: FRACREFA
18REAL_B , DIMENSION(NG8) :: FRACREFB
19REAL_B , DIMENSION(NG8) :: CFC12
20REAL_B , DIMENSION(NG8) :: CFC22ADJ
21REAL_B , DIMENSION(NG8) :: ABSCO2A
22REAL_B , DIMENSION(NG8) :: ABSCO2B
23REAL_B , DIMENSION(NG8) :: ABSN2OA
24REAL_B , DIMENSION(NG8) :: ABSN2OB
25REAL_B , DIMENSION(59)  :: H2OREF
26REAL_B , DIMENSION(59)  :: N2OREF
27REAL_B , DIMENSION(59)  :: O3REF
28
29REAL_B :: KA(5,7,NG8)    ,ABSA(35,NG8)
30REAL_B :: KB(5,7:59,NG8) ,ABSB(265,NG8)
31REAL_B :: SELFREF(10,NG8)
32
33!     -----------------------------------------------------------------
34! EQUIVALENCE Instruction is suppressed and
35! EQUIVALENCE             is FORCED in RRTM_CMBGB8    (HG, 13-DEC-2003)
36! EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,7,1),ABSB(1,1))
37!     -----------------------------------------------------------------
38
39!     -----------------------------------------------------------------
40!        * E.C.M.W.F. PHYSICS PACKAGE *
41
42!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
43
44!  NAME     TYPE     PURPOSE
45!  ----   : ----   : ---------------------------------------------------
46! ABSA    : REAL
47! ABSB    : REAL
48! ABSCO2A : REAL     
49! ABSCO2B : REAL     
50! ABSN2OA : REAL     
51! ABSN2OB : REAL
52! CFC12   : REAL     
53! CFC22ADJ: REAL     
54! FRACREFA: REAL   
55! FRACREFB: REAL   
56! H2OREF  : REAL   
57! KA      : REAL     
58! KB      : REAL     
59! N2OREF  : REAL   
60! O3REF   : REAL   
61! SELFREF : REAL     
62!     -----------------------------------------------------------------
63END MODULE YOERRTA8
Note: See TracBrowser for help on using the repository browser.