| subroutine __module_sf_noahmplsm_f90__::sfcdif4 |
( |
integer, intent(in) |
iloc, |
|
|
integer, intent(in) |
jloc, |
|
|
real(kind=kind_phys), intent(in) |
ux, |
|
|
real(kind=kind_phys), intent(in) |
vx, |
|
|
real(kind=kind_phys), intent(in) |
t1d, |
|
|
real(kind=kind_phys), intent(in) |
p1d, |
|
|
real(kind=kind_phys), intent(in) |
psfcpa, |
|
|
real(kind=kind_phys), intent(in) |
pblhx, |
|
|
real(kind=kind_phys), intent(in) |
dx, |
|
|
real(kind=kind_phys), intent(in) |
znt, |
|
|
real(kind=kind_phys), intent(in) |
ep_1, |
|
|
real(kind=kind_phys), intent(in) |
ep_2, |
|
|
real(kind=kind_phys), intent(in) |
cp, |
|
|
integer, intent(in) |
itime, |
|
|
real(kind=kind_phys), intent(in) |
snwh, |
|
|
integer, intent(in) |
isice, |
|
|
integer, intent(in) |
psi_opt, |
|
|
real(kind=kind_phys), intent(in) |
tsk, |
|
|
real(kind=kind_phys), intent(in) |
qx, |
|
|
real(kind=kind_phys), intent(in) |
zlvl, |
|
|
integer, intent(in), optional |
iz0tlnd, |
|
|
real(kind=kind_phys), intent(inout) |
qsfc, |
|
|
real(kind=kind_phys), intent(in) |
hfx, |
|
|
real(kind=kind_phys), intent(in) |
qfx, |
|
|
real(kind=kind_phys), intent(inout) |
cm, |
|
|
real(kind=kind_phys), intent(inout) |
chs, |
|
|
real(kind=kind_phys), intent(inout) |
chs2, |
|
|
real(kind=kind_phys), intent(inout) |
cqs2, |
|
|
real(kind=kind_phys), intent(inout) |
rmolx, |
|
|
real(kind=kind_phys), intent(inout) |
ust, |
|
|
real(kind=kind_phys), intent(inout) |
rbx, |
|
|
real(kind=kind_phys), intent(inout) |
fmx, |
|
|
real(kind=kind_phys), intent(inout) |
fhx, |
|
|
real(kind=kind_phys), intent(inout) |
stressx, |
|
|
real(kind=kind_phys), intent(inout) |
fm10x, |
|
|
real(kind=kind_phys), intent(inout) |
fh2x, |
|
|
real(kind=kind_phys), intent(inout) |
wspdx, |
|
|
real(kind=kind_phys), intent(inout) |
flhcx, |
|
|
real(kind=kind_phys), intent(inout) |
flqcx |
|
) |
| |
|
private |