source: LMDZ5/branches/IPSLCM6.0.10/libf/phymar/yoerrtrwt.F90 @ 5409

Last change on this file since 5409 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: 856 bytes
Line 
1MODULE YOERRTRWT
2
3#include "tsmbkind.h"
4
5USE PARRRTM
6
7
8IMPLICIT NONE
9
10SAVE
11
12!    -------------------------------------------------------------------
13
14!    -------------------------------------------------------------------
15
16REAL_B :: FREFA  (JPGPT,13)
17REAL_B :: FREFB  (JPGPT,6)
18REAL_B :: FREFADF(JPGPT,13)
19REAL_B :: FREFBDF(JPGPT,6)
20REAL_B :: RWGT   (JPG*JPBAND)
21
22!     -----------------------------------------------------------------
23!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
24
25!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
26
27!  NAME     TYPE     PURPOSE
28!  ----  :  ----   : ---------------------------------------------------
29! FREFA  :  REAL   :
30! FREFB  :  REAL   :
31! FREFADF:  REAL   :
32! FREFBDF:  REAL   :
33! RWT    :  REAL   :
34!    -------------------------------------------------------------------
35END MODULE YOERRTRWT
Note: See TracBrowser for help on using the repository browser.