source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/yoerrtftr.F90 @ 5412

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

Inclusion de la physique de MAR


Integration of MAR physics

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.