subroutine, private module_sf_noahmplsm::bare_flux |
( |
type (noahmp_parameters), intent(in) |
parameters, |
|
|
integer, intent(in) |
nsnow, |
|
|
integer, intent(in) |
nsoil, |
|
|
integer, intent(in) |
isnow, |
|
|
real (kind=kind_phys), intent(in) |
dt, |
|
|
real (kind=kind_phys), intent(in) |
sag, |
|
|
real (kind=kind_phys), intent(in) |
lwdn, |
|
|
real (kind=kind_phys), intent(in) |
ur, |
|
|
real (kind=kind_phys), intent(in) |
uu, |
|
|
real (kind=kind_phys), intent(in) |
vv, |
|
|
real (kind=kind_phys), intent(in) |
sfctmp, |
|
|
real (kind=kind_phys), intent(in) |
thair, |
|
|
real (kind=kind_phys), intent(in) |
qair, |
|
|
real (kind=kind_phys), intent(in) |
eair, |
|
|
real (kind=kind_phys), intent(in) |
rhoair, |
|
|
real (kind=kind_phys), intent(in) |
snowh, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |
dzsnso, |
|
|
real (kind=kind_phys), intent(in) |
zlvl, |
|
|
real (kind=kind_phys), intent(in) |
zpd, |
|
|
real (kind=kind_phys), intent(in) |
z0m, |
|
|
real (kind=kind_phys), intent(in) |
fsno, |
|
|
real (kind=kind_phys), intent(in) |
emg, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |
stc, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |
df, |
|
|
real (kind=kind_phys), intent(in) |
rsurf, |
|
|
real (kind=kind_phys), intent(in) |
lathea, |
|
|
real (kind=kind_phys), intent(in) |
gamma, |
|
|
real (kind=kind_phys), intent(in) |
rhsur, |
|
|
integer, intent(in) |
iloc, |
|
|
integer, intent(in) |
jloc, |
|
|
real (kind=kind_phys), intent(in) |
q2, |
|
|
real (kind=kind_phys), intent(in) |
pahb, |
|
|
logical, intent(in) |
thsfc_loc, |
|
|
real (kind=kind_phys), intent(in) |
prslkix, |
|
|
real (kind=kind_phys), intent(in) |
prsik1x, |
|
|
real (kind=kind_phys), intent(in) |
prslk1x, |
|
|
real (kind=kind_phys), intent(in) |
fveg, |
|
|
real (kind=kind_phys), intent(in) |
shdfac, |
|
|
real (kind=kind_phys), intent(in) |
garea1, |
|
|
|
ifdef, |
|
|
|
CCPP |
|
) |
| |
|
private |