source: LMDZ5/branches/testing/libf/phymar/yoerrtftr.F90 @ 3525

Last change on this file since 3525 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: 887 bytes
Line 
1MODULE YOERRTFTR
2
3#include "tsmbkind.h"
4
5USE PARRRTM
6
7
8IMPLICIT NONE
9
10SAVE
11
12!    -------------------------------------------------------------------
13
14!    -------------------------------------------------------------------
15
16INTEGER_M :: NGC(JPBAND)
17INTEGER_M :: NGS(JPBAND)
18INTEGER_M :: NGN(JPGPT)
19INTEGER_M :: NGB(JPGPT)
20
21INTEGER_M :: NGM(JPG*JPBAND)
22REAL_B ::    WT(JPG)
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!  NGC   : INTEGER :
32!  NGS   : INTEGER :
33!  NGN   : INTEGER :
34!  NGB   : INTEGER :
35!  NGM   : INTEGER :
36!  WT    : REAL    :
37!    -------------------------------------------------------------------
38END MODULE YOERRTFTR
39
40
Note: See TracBrowser for help on using the repository browser.