subroutine, public module_radiation_clouds::progcld_thompson |
( |
real (kind=kind_phys), dimension(:,:), intent(in) |
plyr, |
|
|
real (kind=kind_phys), dimension(:,:), intent(in) |
plvl, |
|
|
real (kind=kind_phys), dimension(:,:), intent(in) |
tlyr, |
|
|
real (kind=kind_phys), dimension(:,:), intent(in) |
qlyr, |
|
|
real (kind=kind_phys), dimension(:,:), intent(in) |
qstl, |
|
|
real (kind=kind_phys), dimension(:,:), intent(in) |
rhly, |
|
|
real (kind=kind_phys), dimension(:,:,:), intent(in) |
clw, |
|
|
real (kind=kind_phys), dimension(:), intent(in) |
xlat, |
|
|
real (kind=kind_phys), dimension(:), intent(in) |
xlon, |
|
|
real (kind=kind_phys), dimension(:), intent(in) |
slmsk, |
|
|
real (kind=kind_phys), dimension(:,:), intent(in) |
dz, |
|
|
real (kind=kind_phys), dimension(:,:), intent(in) |
delp, |
|
|
integer, intent(in) |
ntrac, |
|
|
integer, intent(in) |
ntcw, |
|
|
integer, intent(in) |
ntiw, |
|
|
integer, intent(in) |
ntrw, |
|
|
integer, intent(in) |
ntsw, |
|
|
integer, intent(in) |
ntgl, |
|
|
integer, intent(in) |
IX, |
|
|
integer, intent(in) |
NLAY, |
|
|
integer, intent(in) |
NLP1, |
|
|
logical, intent(in) |
uni_cld, |
|
|
logical, intent(in) |
lmfshal, |
|
|
logical, intent(in) |
lmfdeep2, |
|
|
real (kind=kind_phys), dimension(:,:), intent(in) |
cldcov, |
|
|
real (kind=kind_phys), dimension(:,:), intent(in) |
re_cloud, |
|
|
real (kind=kind_phys), dimension(:,:), intent(in) |
re_ice, |
|
|
real (kind=kind_phys), dimension(:,:), intent(in) |
re_snow, |
|
|
real (kind=kind_phys), dimension(:), intent(inout) |
lwp_ex, |
|
|
real (kind=kind_phys), dimension(:), intent(inout) |
iwp_ex, |
|
|
real (kind=kind_phys), dimension(:), intent(inout) |
lwp_fc, |
|
|
real (kind=kind_phys), dimension(:), intent(inout) |
iwp_fc, |
|
|
real (kind=kind_phys), dimension(:,:), intent(in) |
dzlay, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
gridkm, |
|
|
real (kind=kind_phys), dimension(ix,nlay) |
cldtot, |
|
|
real (kind=kind_phys), dimension(ix,nlay) |
cldcnv, |
|
|
real (kind=kind_phys), dimension(:,:), intent(inout) |
cld_frac, |
|
|
real (kind=kind_phys), dimension(:,:), intent(inout) |
cld_lwp, |
|
|
real (kind=kind_phys), dimension(:,:), intent(inout) |
cld_reliq, |
|
|
real (kind=kind_phys), dimension(:,:), intent(inout) |
cld_iwp, |
|
|
real (kind=kind_phys), dimension(:,:), intent(inout) |
cld_reice, |
|
|
real (kind=kind_phys), dimension(:,:), intent(inout) |
cld_rwp, |
|
|
real (kind=kind_phys), dimension(:,:), intent(inout) |
cld_rerain, |
|
|
real (kind=kind_phys), dimension(:,:), intent(inout) |
cld_swp, |
|
|
real (kind=kind_phys), dimension(:,:), intent(inout) |
cld_resnow |
|
) |
| |