subroutine, private module_sf_noahmplsm::error |
( |
type (noahmp_parameters), intent(in) |
parameters, |
|
|
real (kind=kind_phys), intent(in) |
swdown, |
|
|
real (kind=kind_phys), intent(in) |
fsa, |
|
|
real (kind=kind_phys), intent(in) |
fsr, |
|
|
real (kind=kind_phys), intent(in) |
fira, |
|
|
real (kind=kind_phys), intent(in) |
fsh, |
|
|
real (kind=kind_phys), intent(in) |
fcev, |
|
|
real (kind=kind_phys), intent(in) |
fgev, |
|
|
real (kind=kind_phys), intent(in) |
fctr, |
|
|
real (kind=kind_phys), intent(in) |
ssoil, |
|
|
real (kind=kind_phys), intent(in) |
beg_wb, |
|
|
real (kind=kind_phys), intent(in) |
canliq, |
|
|
real (kind=kind_phys), intent(in) |
canice, |
|
|
real (kind=kind_phys), intent(in) |
sneqv, |
|
|
real (kind=kind_phys), intent(in) |
wa, |
|
|
real (kind=kind_phys), dimension( 1:nsoil), intent(in) |
smc, |
|
|
real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |
dzsnso, |
|
|
real (kind=kind_phys), intent(in) |
prcp, |
|
|
real (kind=kind_phys), intent(in) |
ecan, |
|
|
real (kind=kind_phys), intent(in) |
etran, |
|
|
real (kind=kind_phys), intent(in) |
edir, |
|
|
real (kind=kind_phys), intent(in) |
runsrf, |
|
|
real (kind=kind_phys), intent(in) |
runsub, |
|
|
real (kind=kind_phys), intent(in) |
dt, |
|
|
integer, intent(in) |
nsoil, |
|
|
integer, intent(in) |
nsnow, |
|
|
integer, intent(in) |
ist, |
|
|
real (kind=kind_phys), intent(out) |
errwat, |
|
|
integer, intent(in) |
iloc, |
|
|
integer, intent(in) |
jloc, |
|
|
real (kind=kind_phys), intent(in) |
fveg, |
|
|
real (kind=kind_phys), intent(in) |
sav, |
|
|
real (kind=kind_phys), intent(in) |
sag, |
|
|
real (kind=kind_phys), intent(in) |
fsrv, |
|
|
real (kind=kind_phys), intent(in) |
fsrg, |
|
|
real (kind=kind_phys), intent(in) |
zwt, |
|
|
real (kind=kind_phys), intent(in) |
pah, |
|
|
|
ifdef, |
|
|
|
CCPP |
|
) |
| |
|
private |