subroutine, public | sfc_diff::sfc_diff_run (im, rvrdm1, eps, epsm1, grav, ps, t1, q1, z1, wind, prsl1, prslki, prsik1, prslk1, sigmaf, vegtype, shdmax, ivegsrc, z0pert, ztpert, flag_iter, redrag, u10m, v10m, sfc_z0_type, wet, dry, icy, tskin_ocn, tskin_lnd, tskin_ice, tsurf_ocn, tsurf_lnd, tsurf_ice, snwdph_ocn, snwdph_lnd, snwdph_ice, z0rl_ocn, z0rl_lnd, z0rl_ice, ustar_ocn, ustar_lnd, ustar_ice, cm_ocn, cm_lnd, cm_ice, ch_ocn, ch_lnd, ch_ice, rb_ocn, rb_lnd, rb_ice, stress_ocn, stress_lnd, stress_ice, fm_ocn, fm_lnd, fm_ice, fh_ocn, fh_lnd, fh_ice, fm10_ocn, fm10_lnd, fm10_ice, fh2_ocn, fh2_lnd, fh2_ice, errmsg, errflg) |