source: LMDZ5/branches/IPSLCM6.0.8/libf/phymar/yoerrto8.F90 @ 5455

Last change on this file since 5455 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.3 KB
Line 
1MODULE YOERRTO8
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     -----------------------------------------------------------------
11!*    ** *YOERRTO8* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 8
12!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
13!     -----------------------------------------------------------------
14
15INTEGER_M, PARAMETER :: NO8  = 16
16
17REAL_B , DIMENSION(NO8) :: FRACREFAO
18REAL_B , DIMENSION(NO8) :: FRACREFBO
19REAL_B , DIMENSION(NO8) :: CFC12O
20REAL_B , DIMENSION(NO8) :: CFC22ADJO
21REAL_B , DIMENSION(NO8) :: ABSCO2AO
22REAL_B , DIMENSION(NO8) :: ABSCO2BO
23REAL_B , DIMENSION(NO8) :: ABSN2OAO
24REAL_B , DIMENSION(NO8) :: ABSN2OBO
25
26REAL_B :: KAO(5,7,NO8)
27REAL_B :: KBO(5,7:59,NO8)
28REAL_B :: SELFREFO(10,NO8)
29
30!     -----------------------------------------------------------------
31!        * E.C.M.W.F. PHYSICS PACKAGE *
32
33!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
34
35!  NAME     TYPE     PURPOSE
36!  ----   : ----   : ---------------------------------------------------
37! ABSCO2A : REAL     
38! ABSCO2B : REAL     
39! ABSN2OA : REAL     
40! ABSN2OB : REAL
41! CFC12   : REAL     
42! CFC22ADJ: REAL     
43! FRACREFA: REAL   
44! FRACREFB: REAL   
45! KA      : REAL     
46! KB      : REAL     
47! SELFREF : REAL     
48!     -----------------------------------------------------------------
49END MODULE YOERRTO8
Note: See TracBrowser for help on using the repository browser.