subroutine __module_sf_noahmplsm_f90__::sfcdif3 |
( |
type (noahmp_parameters), intent(in) | parameters, |
|
|
integer, intent(in) | iloc, |
|
|
integer, intent(in) | jloc, |
|
|
integer, intent(in) | iter, |
|
|
real (kind=kind_phys), intent(in) | sfctmp, |
|
|
real (kind=kind_phys), intent(in) | qair, |
|
|
real (kind=kind_phys), intent(in) | ur, |
|
|
real (kind=kind_phys), intent(in) | zlvl, |
|
|
real (kind=kind_phys), intent(in) | tgb, |
|
|
logical, intent(in) | thsfc_loc, |
|
|
real (kind=kind_phys), intent(in) | prslkix, |
|
|
real (kind=kind_phys), intent(in) | prsik1x, |
|
|
real (kind=kind_phys), intent(in) | prslk1x, |
|
|
real (kind=kind_phys), intent(in) | z0m, |
|
|
real (kind=kind_phys), intent(in) | z0h, |
|
|
real (kind=kind_phys), intent(in) | zpd, |
|
|
real (kind=kind_phys), intent(in) | snowh, |
|
|
real (kind=kind_phys), intent(in) | fveg, |
|
|
real (kind=kind_phys), intent(in) | garea1, |
|
|
real (kind=kind_phys), intent(inout) | ustarx, |
|
|
real (kind=kind_phys), intent(inout) | fm, |
|
|
real (kind=kind_phys), intent(inout) | fh, |
|
|
real (kind=kind_phys), intent(inout) | fm2, |
|
|
real (kind=kind_phys), intent(inout) | fh2, |
|
|
real (kind=kind_phys), intent(out) | fv, |
|
|
real (kind=kind_phys), intent(out) | cm, |
|
|
real (kind=kind_phys), intent(out) | ch ) |
|
private |