source: LMDZ5/branches/testing/libf/phymar/yoerrto2.F90 @ 5434

Last change on this file since 5434 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.1 KB
RevLine 
[2089]1MODULE YOERRTO2
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     -----------------------------------------------------------------
11!*    ** *YOERRTO2* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 2
12!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
13!     -----------------------------------------------------------------
14
15INTEGER_M, PARAMETER :: NO2  = 16
16
17!     The ith set of reference fractions are from the ith reference
18!     pressure level.
19REAL_B :: FRACREFAO(NO2,13), FRACREFBO(NO2)
20REAL_B :: KAO(5,13,NO2)
21REAL_B :: KBO(5,13:59,NO2)
22REAL_B :: SELFREFO(10,NO2) , FORREFO(NO2)
23
24!     -----------------------------------------------------------------
25!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
26
27!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
28
29!  NAME     TYPE     PURPOSE
30!  ----   : ----   : ---------------------------------------------------
31!FRACREFAO: REAL   
32!FRACREFBO: REAL
33! KAO     : REAL     
34! KBO     : REAL     
35! SELFREFO: REAL
36! FORREFO : REAL 
37!     -----------------------------------------------------------------
38END MODULE YOERRTO2
Note: See TracBrowser for help on using the repository browser.