source:
LMDZ5/branches/LMDZ6_rc0/libf/phymar/yoerrtrwt.F90
Last change on this file was 2160, checked in by , 10 years ago | |
---|---|
File size: 856 bytes |
Line | |
---|---|
1 | MODULE YOERRTRWT |
2 | |
3 | #include "tsmbkind.h" |
4 | |
5 | USE PARRRTM |
6 | |
7 | |
8 | IMPLICIT NONE |
9 | |
10 | SAVE |
11 | |
12 | ! ------------------------------------------------------------------- |
13 | |
14 | ! ------------------------------------------------------------------- |
15 | |
16 | REAL_B :: FREFA (JPGPT,13) |
17 | REAL_B :: FREFB (JPGPT,6) |
18 | REAL_B :: FREFADF(JPGPT,13) |
19 | REAL_B :: FREFBDF(JPGPT,6) |
20 | REAL_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 | ! ------------------------------------------------------------------- |
35 | END MODULE YOERRTRWT |
Note: See TracBrowser
for help on using the repository browser.