source: LMDZ5/branches/IPSLCM6.0.10/libf/phymar/yoerrtrf.F90 @ 4778

Last change on this file since 4778 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: 788 bytes
Line 
1MODULE YOERRTRF
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     -----------------------------------------------------------------
11!*    ** *YOERRTRF* - RRTM REFERENCE ATMOSPHERE
12!     -----------------------------------------------------------------
13
14REAL_B , DIMENSION(59) :: PREF
15REAL_B , DIMENSION(59) :: PREFLOG
16REAL_B , DIMENSION(59) :: TREF
17
18!     -----------------------------------------------------------------
19!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
20
21!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15
22
23!  NAME     TYPE     PURPOSE
24!  ----  :  ----   : ---------------------------------------------------
25! PREF   :  REAL   
26! PREFLOG: REAL
27! TREF   : REAL
28!     -----------------------------------------------------------------
29END MODULE YOERRTRF
Note: See TracBrowser for help on using the repository browser.