My Project
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | clcdrag (knon, nsrf, paprs, pplay, u1, v1, t1, q1, tsurf, qsurf, rugos, pcfm, pcfh) |
subroutine clcdrag | ( | integer, intent(in) | knon, |
integer, intent(in) | nsrf, | ||
real, dimension(klon,klev+1), intent(in) | paprs, | ||
real, dimension(klon,klev), intent(in) | pplay, | ||
real, dimension(klon), intent(in) | u1, | ||
real, dimension(klon), intent(in) | v1, | ||
real, dimension(klon), intent(in) | t1, | ||
real, dimension(klon), intent(in) | q1, | ||
real, dimension(klon), intent(in) | tsurf, | ||
real, dimension(klon), intent(in) | qsurf, | ||
real, dimension(klon), intent(in) | rugos, | ||
real, dimension(klon), intent(out) | pcfm, | ||
real, dimension(klon), intent(out) | pcfh | ||
) |
Definition at line 4 of file clcdrag.F90.