Go to the source code of this file.
|
subroutine | coefcdrag (klon, knon, nsrf, zxli, speed, t, q, zgeop, psol, ts, qsurf, rugos, okri, ri1, cdram, cdrah, cdran, zri1, pref) |
|
subroutine coefcdrag |
( |
integer, intent(in) |
klon, |
|
|
integer, intent(in) |
knon, |
|
|
integer, intent(in) |
nsrf, |
|
|
logical, intent(in) |
zxli, |
|
|
real, dimension(klon), intent(in) |
speed, |
|
|
real, dimension(klon), intent(in) |
t, |
|
|
real, dimension(klon), intent(in) |
q, |
|
|
real, dimension(klon), intent(in) |
zgeop, |
|
|
real, dimension(klon), intent(in) |
psol, |
|
|
real, dimension(klon), intent(in) |
ts, |
|
|
real, dimension(klon), intent(in) |
qsurf, |
|
|
real, dimension(klon), intent(in) |
rugos, |
|
|
logical, intent(in) |
okri, |
|
|
real, dimension(klon), intent(in) |
ri1, |
|
|
real, dimension(klon), intent(out) |
cdram, |
|
|
real, dimension(klon), intent(out) |
cdrah, |
|
|
real, dimension(klon), intent(out) |
cdran, |
|
|
real, dimension(klon), intent(out) |
zri1, |
|
|
real, dimension(klon), intent(out) |
pref |
|
) |
| |