subroutine sfc_ex_coef::sfc_ex_coef_run | ( | integer, intent(in) | im, |
real(kind=kind_phys), dimension(im), intent(in) | ps, | ||
real(kind=kind_phys), dimension(im), intent(in) | u1, | ||
real(kind=kind_phys), dimension(im), intent(in) | v1, | ||
real(kind=kind_phys), dimension(im), intent(in) | t1, | ||
real(kind=kind_phys), dimension(im), intent(in) | q1, | ||
real(kind=kind_phys), dimension(im), intent(in) | z1, | ||
real(kind=kind_phys), dimension(im), intent(in) | snwdph, | ||
real(kind=kind_phys), dimension(im), intent(in) | tskin, | ||
real(kind=kind_phys), dimension(im), intent(inout) | z0rl, | ||
real(kind=kind_phys), dimension(im), intent(inout) | cm, | ||
real(kind=kind_phys), dimension(im), intent(inout) | ch, | ||
real(kind=kind_phys), dimension(im), intent(inout) | rb, | ||
real(kind=kind_phys), dimension(im), intent(in) | prsl1, | ||
real(kind=kind_phys), dimension(im), intent(in) | prslki, | ||
integer, dimension(im), intent(in) | islimsk, | ||
real(kind=kind_phys), dimension(im), intent(inout) | stress, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fm, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fh, | ||
real(kind=kind_phys), dimension(im), intent(inout) | ustar, | ||
real(kind=kind_phys), dimension(im), intent(inout) | wind, | ||
real(kind=kind_phys), dimension(im), intent(in) | ddvel, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fm10, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fh2, | ||
real(kind=kind_phys), dimension(im), intent(in) | sigmaf, | ||
integer, dimension(im), intent(in) | vegtype, | ||
real(kind=kind_phys), dimension(im), intent(in) | shdmax, | ||
integer, intent(in) | ivegsrc, | ||
real(kind=kind_phys), dimension(im), intent(in) | z0pert, | ||
real(kind=kind_phys), dimension(im), intent(in) | ztpert, | ||
real(kind=kind_phys), dimension(im), intent(in) | tsurf, | ||
logical, dimension(im), intent(in) | flag_iter, | ||
logical, intent(in) | redrag, | ||
character(len=*), intent(out) | errmsg, | ||
integer, intent(out) | errflg | ||
) |
References physcons::con_cp, physcons::con_eps, physcons::con_epsm1, physcons::con_fvirt, physcons::con_g, physcons::con_rd, and funcphys::fpvs().