subroutine __module_sf_noahmplsm_f90__::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 |