Go to the source code of this file.
|
subroutine | comscp2 (ncol, nlm, tg, fwcld, fwclr, tccld1, tcclr1, tccld, tcclr, wccld, wcclr) |
|
subroutine comscp2 |
( |
integer (kind=int_kind), intent(in) |
ncol, |
|
|
integer (kind=int_kind), intent(in) |
nlm, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm) |
tg, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm) |
fwcld, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm) |
fwclr, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm) |
tccld1, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm) |
tcclr1, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm) |
tccld, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm) |
tcclr, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(out) |
wccld, |
|
|
real (kind=dbl_kind), dimension(ncol,nlm), intent(out) |
wcclr |
|
) |
| |