subroutine, public sfc_diff::sfc_diff_run | ( | integer, intent(in) | im, |
real(kind=kind_phys), intent(in) | rvrdm1, | ||
real(kind=kind_phys), intent(in) | eps, | ||
real(kind=kind_phys), intent(in) | epsm1, | ||
real(kind=kind_phys), intent(in) | grav, | ||
real(kind=kind_phys), dimension(im), intent(in) | ps, | ||
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) | wind, | ||
real(kind=kind_phys), dimension(im), intent(in) | prsl1, | ||
real(kind=kind_phys), dimension(im), intent(in) | prslki, | ||
real(kind=kind_phys), dimension(im), intent(in) | prsik1, | ||
real(kind=kind_phys), dimension(im), intent(in) | prslk1, | ||
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, | ||
logical, dimension(im), intent(in) | flag_iter, | ||
logical, intent(in) | redrag, | ||
real(kind=kind_phys), dimension(im), intent(in) | u10m, | ||
real(kind=kind_phys), dimension(im), intent(in) | v10m, | ||
integer, intent(in) | sfc_z0_type, | ||
logical, dimension(im), intent(in) | wet, | ||
logical, dimension(im), intent(in) | dry, | ||
logical, dimension(im), intent(in) | icy, | ||
real(kind=kind_phys), dimension(im), intent(in) | tskin_ocn, | ||
real(kind=kind_phys), dimension(im), intent(in) | tskin_lnd, | ||
real(kind=kind_phys), dimension(im), intent(in) | tskin_ice, | ||
real(kind=kind_phys), dimension(im), intent(in) | tsurf_ocn, | ||
real(kind=kind_phys), dimension(im), intent(in) | tsurf_lnd, | ||
real(kind=kind_phys), dimension(im), intent(in) | tsurf_ice, | ||
real(kind=kind_phys), dimension(im), intent(in) | snwdph_ocn, | ||
real(kind=kind_phys), dimension(im), intent(in) | snwdph_lnd, | ||
real(kind=kind_phys), dimension(im), intent(in) | snwdph_ice, | ||
real(kind=kind_phys), dimension(im), intent(inout) | z0rl_ocn, | ||
real(kind=kind_phys), dimension(im), intent(inout) | z0rl_lnd, | ||
real(kind=kind_phys), dimension(im), intent(inout) | z0rl_ice, | ||
real(kind=kind_phys), dimension(im), intent(inout) | ustar_ocn, | ||
real(kind=kind_phys), dimension(im), intent(inout) | ustar_lnd, | ||
real(kind=kind_phys), dimension(im), intent(inout) | ustar_ice, | ||
real(kind=kind_phys), dimension(im), intent(inout) | cm_ocn, | ||
real(kind=kind_phys), dimension(im), intent(inout) | cm_lnd, | ||
real(kind=kind_phys), dimension(im), intent(inout) | cm_ice, | ||
real(kind=kind_phys), dimension(im), intent(inout) | ch_ocn, | ||
real(kind=kind_phys), dimension(im), intent(inout) | ch_lnd, | ||
real(kind=kind_phys), dimension(im), intent(inout) | ch_ice, | ||
real(kind=kind_phys), dimension(im), intent(inout) | rb_ocn, | ||
real(kind=kind_phys), dimension(im), intent(inout) | rb_lnd, | ||
real(kind=kind_phys), dimension(im), intent(inout) | rb_ice, | ||
real(kind=kind_phys), dimension(im), intent(inout) | stress_ocn, | ||
real(kind=kind_phys), dimension(im), intent(inout) | stress_lnd, | ||
real(kind=kind_phys), dimension(im), intent(inout) | stress_ice, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fm_ocn, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fm_lnd, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fm_ice, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fh_ocn, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fh_lnd, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fh_ice, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fm10_ocn, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fm10_lnd, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fm10_ice, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fh2_ocn, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fh2_lnd, | ||
real(kind=kind_phys), dimension(im), intent(inout) | fh2_ice, | ||
character(len=*), intent(out) | errmsg, | ||
integer, intent(out) | errflg | ||
) |
References ca, stability(), znot_m_v6(), znot_m_v7(), znot_t_v6(), and znot_t_v7().