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(:), intent(in) | ps, | ||
real(kind=kind_phys), dimension(:), intent(in) | t1, | ||
real(kind=kind_phys), dimension(:), intent(in) | q1, | ||
real(kind=kind_phys), dimension(:), intent(in) | z1, | ||
real(kind=kind_phys), dimension(:), intent(in) | garea, | ||
real(kind=kind_phys), dimension(:), intent(in) | wind, | ||
real(kind=kind_phys), dimension(:), intent(in) | prsl1, | ||
real(kind=kind_phys), dimension(:), intent(in) | prslki, | ||
real(kind=kind_phys), dimension(:), intent(in) | prsik1, | ||
real(kind=kind_phys), dimension(:), intent(in) | prslk1, | ||
real(kind=kind_phys), dimension(:), intent(in) | sigmaf, | ||
integer, dimension(:), intent(in) | vegtype, | ||
real(kind=kind_phys), dimension(:), intent(in) | shdmax, | ||
integer, intent(in) | ivegsrc, | ||
real(kind=kind_phys), dimension(:), intent(in) | z0pert, | ||
real(kind=kind_phys), dimension(:), intent(in) | ztpert, | ||
logical, dimension(:), intent(in) | flag_iter, | ||
logical, intent(in) | redrag, | ||
logical, dimension(:), intent(in) | flag_lakefreeze, | ||
real(kind=kind_phys), dimension(:), intent(in) | u10m, | ||
real(kind=kind_phys), dimension(:), intent(in) | v10m, | ||
integer, intent(in) | sfc_z0_type, | ||
real(kind=kind_phys), dimension(:), intent(in) | u1, | ||
real(kind=kind_phys), dimension(:), intent(in) | v1, | ||
real(kind=kind_phys), dimension(:), intent(in) | usfco, | ||
real(kind=kind_phys), dimension(:), intent(in) | vsfco, | ||
integer, intent(in) | icplocn2atm, | ||
logical, dimension(:), intent(inout) | wet, | ||
logical, dimension(:), intent(in) | dry, | ||
logical, dimension(:), intent(in) | icy, | ||
logical, intent(in) | thsfc_loc, | ||
real(kind=kind_phys), dimension(:), intent(in) | tskin_wat, | ||
real(kind=kind_phys), dimension(:), intent(in) | tskin_lnd, | ||
real(kind=kind_phys), dimension(:), intent(in) | tskin_ice, | ||
real(kind=kind_phys), dimension(:), intent(in) | tsurf_wat, | ||
real(kind=kind_phys), dimension(:), intent(in) | tsurf_lnd, | ||
real(kind=kind_phys), dimension(:), intent(in) | tsurf_ice, | ||
real(kind=kind_phys), dimension(:), intent(inout) | z0rl_wat, | ||
real(kind=kind_phys), dimension(:), intent(inout) | z0rl_lnd, | ||
real(kind=kind_phys), dimension(:), intent(inout) | z0rl_ice, | ||
real(kind=kind_phys), dimension(:), intent(in) | z0rl_wav, | ||
real(kind=kind_phys), dimension(:), intent(inout) | ustar_wat, | ||
real(kind=kind_phys), dimension(:), intent(inout) | ustar_lnd, | ||
real(kind=kind_phys), dimension(:), intent(inout) | ustar_ice, | ||
real(kind=kind_phys), dimension(:), intent(inout) | cm_wat, | ||
real(kind=kind_phys), dimension(:), intent(inout) | cm_lnd, | ||
real(kind=kind_phys), dimension(:), intent(inout) | cm_ice, | ||
real(kind=kind_phys), dimension(:), intent(inout) | ch_wat, | ||
real(kind=kind_phys), dimension(:), intent(inout) | ch_lnd, | ||
real(kind=kind_phys), dimension(:), intent(inout) | ch_ice, | ||
real(kind=kind_phys), dimension(:), intent(inout) | rb_wat, | ||
real(kind=kind_phys), dimension(:), intent(inout) | rb_lnd, | ||
real(kind=kind_phys), dimension(:), intent(inout) | rb_ice, | ||
real(kind=kind_phys), dimension(:), intent(inout) | stress_wat, | ||
real(kind=kind_phys), dimension(:), intent(inout) | stress_lnd, | ||
real(kind=kind_phys), dimension(:), intent(inout) | stress_ice, | ||
real(kind=kind_phys), dimension(:), intent(inout) | fm_wat, | ||
real(kind=kind_phys), dimension(:), intent(inout) | fm_lnd, | ||
real(kind=kind_phys), dimension(:), intent(inout) | fm_ice, | ||
real(kind=kind_phys), dimension(:), intent(inout) | fh_wat, | ||
real(kind=kind_phys), dimension(:), intent(inout) | fh_lnd, | ||
real(kind=kind_phys), dimension(:), intent(inout) | fh_ice, | ||
real(kind=kind_phys), dimension(:), intent(inout) | fm10_wat, | ||
real(kind=kind_phys), dimension(:), intent(inout) | fm10_lnd, | ||
real(kind=kind_phys), dimension(:), intent(inout) | fm10_ice, | ||
real(kind=kind_phys), dimension(:), intent(inout) | fh2_wat, | ||
real(kind=kind_phys), dimension(:), intent(inout) | fh2_lnd, | ||
real(kind=kind_phys), dimension(:), intent(inout) | fh2_ice, | ||
real(kind=kind_phys), dimension(:), intent(inout) | ztmax_wat, | ||
real(kind=kind_phys), dimension(:), intent(inout) | ztmax_lnd, | ||
real(kind=kind_phys), dimension(:), intent(inout) | ztmax_ice, | ||
real(kind=kind_phys), dimension(:), intent(out) | zvfun, | ||
character(len=*), intent(out) | errmsg, | ||
integer, intent(out) | errflg ) |
Definition at line 57 of file sfc_diff.f.
References stability(), znot_m_v6(), znot_m_v7(), znot_t_v6(), and znot_t_v7().