subroutine rrtmg_sw_spcvmc::spcvmc_sw |
( |
integer, intent(in) |
lchnk, |
|
|
integer, intent(in) |
iplon, |
|
|
integer, intent(in) |
nlayers, |
|
|
integer, intent(in) |
istart, |
|
|
integer, intent(in) |
iend, |
|
|
integer, intent(in) |
icpr, |
|
|
integer, intent(in) |
idelm, |
|
|
integer, intent(in) |
iout, |
|
|
real(kind=r8), dimension(:), intent(in) |
pavel, |
|
|
real(kind=r8), dimension(:), intent(in) |
tavel, |
|
|
real(kind=r8), dimension(0:), intent(in) |
pz, |
|
|
real(kind=r8), dimension(0:), intent(in) |
tz, |
|
|
real(kind=r8), intent(in) |
tbound, |
|
|
real(kind=r8), dimension(:), intent(in) |
palbd, |
|
|
real(kind=r8), dimension(:), intent(in) |
palbp, |
|
|
real(kind=r8), dimension(:,:), intent(in) |
pcldfmc, |
|
|
real(kind=r8), dimension(:,:), intent(in) |
ptaucmc, |
|
|
real(kind=r8), dimension(:,:), intent(in) |
pasycmc, |
|
|
real(kind=r8), dimension(:,:), intent(in) |
pomgcmc, |
|
|
real(kind=r8), dimension(:,:), intent(in) |
ptaormc, |
|
|
real(kind=r8), dimension(:,:), intent(in) |
ptaua, |
|
|
real(kind=r8), dimension(:,:), intent(in) |
pasya, |
|
|
real(kind=r8), dimension(:,:), intent(in) |
pomga, |
|
|
real(kind=r8), intent(in) |
prmu0, |
|
|
real(kind=r8), dimension(:), intent(in) |
coldry, |
|
|
real(kind=r8), dimension(:,:), intent(in) |
wkl, |
|
|
real(kind=r8), dimension(:), intent(in) |
adjflux, |
|
|
integer, intent(in) |
laytrop, |
|
|
integer, intent(in) |
layswtch, |
|
|
integer, intent(in) |
laylow, |
|
|
integer, dimension(:), intent(in) |
jp, |
|
|
integer, dimension(:), intent(in) |
jt, |
|
|
integer, dimension(:), intent(in) |
jt1, |
|
|
real(kind=r8), dimension(:), intent(in) |
co2mult, |
|
|
real(kind=r8), dimension(:), intent(in) |
colch4, |
|
|
real(kind=r8), dimension(:), intent(in) |
colco2, |
|
|
real(kind=r8), dimension(:), intent(in) |
colh2o, |
|
|
real(kind=r8), dimension(:), intent(in) |
colmol, |
|
|
real(kind=r8), dimension(:), intent(in) |
coln2o, |
|
|
real(kind=r8), dimension(:), intent(in) |
colo2, |
|
|
|
col |
|
) |
| |