source: palm/trunk/LIB/rrtmg/rrsw_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: 945 bytes
RevLine 
[1585]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.