-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathrrlw_cld.f90
36 lines (27 loc) · 1008 Bytes
/
rrlw_cld.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
module rrlw_cld
use shr_kind_mod, only: r8 => shr_kind_r8
! use parkind, only : jpim, jprb
implicit none
save
!------------------------------------------------------------------
! rrtmg_lw cloud property coefficients
! Revised: MJIacono, AER, jun2006
!------------------------------------------------------------------
! name type purpose
! ----- : ---- : ----------------------------------------------
! abscld1: real :
! absice0: real :
! absice1: real :
! absice2: real :
! absice3: real :
! absliq0: real :
! absliq1: real :
!------------------------------------------------------------------
real(kind=r8) :: abscld1
real(kind=r8) , dimension(2) :: absice0
real(kind=r8) , dimension(2,5) :: absice1
real(kind=r8) , dimension(43,16) :: absice2
real(kind=r8) , dimension(46,16) :: absice3
real(kind=r8) :: absliq0
real(kind=r8) , dimension(58,16) :: absliq1
end module rrlw_cld