subroutine comscp1 |
( |
integer (kind=int_kind), intent(in) |
ncol, |
|
|
integer (kind=int_kind), intent(in) |
nlm, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) |
taer, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) |
tcldi, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) |
tcldw, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) |
tgm, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) |
tray, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) |
waer, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) |
wcldi, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) |
wcldw, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) |
wray, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) |
asyaer, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) |
asycldi, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(in) |
asycldw, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(out) |
tccld1, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(out) |
tcclr1, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(out) |
asycld, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(out) |
asyclr, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(out) |
fwcld, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(out) |
fwclr |
|
) |
| |