source: palm/trunk/LIB/rrtmg/rrlw_ref.f90 @ 1585

Last change on this file since 1585 was 1585, checked in by maronga, 6 years ago

Added support for RRTMG radiation code

File size: 1004 bytes
RevLine 
[1585]1      module rrlw_ref
2
3      use parkind, only : im => kind_im, rb => kind_rb
4
5      implicit none
6      save
7
8!------------------------------------------------------------------
9! rrtmg_lw 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! chi_mls:  real   :
23!------------------------------------------------------------------
24
25      real(kind=rb) , dimension(59) :: pref
26      real(kind=rb) , dimension(59) :: preflog
27      real(kind=rb) , dimension(59) :: tref
28      real(kind=rb) :: chi_mls(7,59)
29
30      end module rrlw_ref
Note: See TracBrowser for help on using the repository browser.