Last change
on this file since 4171 was
1585,
checked in by maronga, 10 years ago
|
Added support for RRTMG radiation code
|
File size:
945 bytes
|
Line | |
---|
1 | module rrsw_ref |
---|
2 | |
---|
3 | use parkind, only : im => kind_im, rb => kind_rb |
---|
4 | |
---|
5 | implicit none |
---|
6 | save |
---|
7 | |
---|
8 | !------------------------------------------------------------------ |
---|
9 | ! rrtmg_sw reference atmosphere |
---|
10 | ! Based on standard mid-latitude summer profile |
---|
11 | ! |
---|
12 | ! Initial version: JJMorcrette, ECMWF, jul1998 |
---|
13 | ! Revised: MJIacono, AER, jun2006 |
---|
14 | ! Revised: MJIacono, AER, aug2008 |
---|
15 | !------------------------------------------------------------------ |
---|
16 | |
---|
17 | ! name type purpose |
---|
18 | ! ----- : ---- : ---------------------------------------------- |
---|
19 | ! pref : real : Reference pressure levels |
---|
20 | ! preflog: real : Reference pressure levels, ln(pref) |
---|
21 | ! tref : real : Reference temperature levels for MLS profile |
---|
22 | !------------------------------------------------------------------ |
---|
23 | |
---|
24 | real(kind=rb) , dimension(59) :: pref |
---|
25 | real(kind=rb) , dimension(59) :: preflog |
---|
26 | real(kind=rb) , dimension(59) :: tref |
---|
27 | |
---|
28 | end module rrsw_ref |
---|
Note: See
TracBrowser
for help on using the repository browser.