source: LMDZ5/trunk/libf/phymar/yoerrto8.F90

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

Inclusion de la physique de MAR

Integration of MAR physics
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.