source: LMDZ5/trunk/libf/phymar/yoerrtrf.F90 @ 5092

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 788 bytes
RevLine 
[2089]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.