subroutine, private noahmp_glacier_routines::sfcdif1_glacier |
( |
integer, intent(in) |
iter, |
|
|
real (kind=kind_phys), intent(in) |
zlvl, |
|
|
real (kind=kind_phys), intent(in) |
zpd, |
|
|
real (kind=kind_phys), intent(in) |
z0h, |
|
|
real (kind=kind_phys), intent(in) |
z0m, |
|
|
real (kind=kind_phys), intent(in) |
qair, |
|
|
real (kind=kind_phys), intent(in) |
sfctmp, |
|
|
real (kind=kind_phys), intent(in) |
h, |
|
|
real (kind=kind_phys), intent(in) |
rhoair, |
|
|
real (kind=kind_phys), intent(in) |
mpe, |
|
|
real (kind=kind_phys), intent(in) |
ur, |
|
|
|
ifdef, |
|
|
|
CCPP |
|
) |
| |
|
private |