subroutine cltracrn |
( |
integer, intent(in) |
itr, |
|
|
real, intent(in) |
dtime, |
|
|
real, dimension(klon), intent(in) |
u1lay, |
|
|
real, dimension(klon), intent(in) |
v1lay, |
|
|
real, dimension(klon), intent(in) |
cdrag, |
|
|
real, dimension(klon,klev), intent(in) |
coef, |
|
|
real, dimension(klon,klev), intent(in) |
t, |
|
|
real, dimension(klon,nbsrf), intent(in) |
ftsol, |
|
|
real, dimension(klon,nbsrf), intent(in) |
pctsrf, |
|
|
real, dimension(klon,klev), intent(in) |
tr, |
|
|
real, dimension(klon), intent(in) |
trs, |
|
|
real, dimension(klon,klev+1), intent(in) |
paprs, |
|
|
real, dimension(klon,klev), intent(in) |
pplay, |
|
|
real, dimension(klon,klev), intent(in) |
delp, |
|
|
real, dimension(klon), intent(in) |
masktr, |
|
|
real, dimension(klon), intent(in) |
fshtr, |
|
|
real, intent(in) |
hsoltr, |
|
|
real, intent(in) |
tautr, |
|
|
real, intent(in) |
vdeptr, |
|
|
real, dimension(klon), intent(in) |
lat, |
|
|
real, dimension(klon,klev), intent(out) |
d_tr, |
|
|
real, dimension(klon), intent(out) |
d_trs |
|
) |
| |