source: LMDZ5/branches/IPSLCM6.0.12/libf/phymar/yoerrto9.F90 @ 5308

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.1 KB
Line 
1MODULE YOERRTO9
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     -----------------------------------------------------------------
11!*    ** *YOERRTO9* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 9
12!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
13!     -----------------------------------------------------------------
14
15INTEGER_M, PARAMETER :: NO9  = 16
16
17REAL_B :: FRACREFAO(NO9,9)
18
19REAL_B , DIMENSION(NO9) :: FRACREFBO
20! 48 = 3*NO9     
21REAL_B , DIMENSION(48) :: ABSN2OO
22
23REAL_B :: KAO(11,5,13,NO9)
24REAL_B :: KBO(5,13:59,NO9)
25REAL_B :: SELFREFO(10,NO9)
26
27!     -----------------------------------------------------------------
28!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
29
30!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
31
32!  NAME     TYPE     PURPOSE
33!  ----   : ----   : ---------------------------------------------------
34! ABSN2O  : REAL   
35! CH4REF  : REAL
36! ETAREF  : REAL
37! FRACREFA: REAL   
38! FRACREFB: REAL
39! H2OREF  : REAL
40! N2OREF  : REAL
41! KA      : REAL     
42! KB      : REAL     
43! SELFREF : REAL     
44!     -----------------------------------------------------------------
45END MODULE YOERRTO9
Note: See TracBrowser for help on using the repository browser.