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, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
u10m, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
v10m, |
|
|
integer, intent(in) |
sfc_z0_type, |
|
|
logical, dimension(:), intent(in) |
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 |
|
) |
| |