subroutine, private noahmp_glacier_routines::error_glacier |
( |
integer, intent(in) |
iloc, |
|
|
integer, intent(in) |
jloc, |
|
|
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) |
fgev, |
|
|
real (kind=kind_phys), intent(in) |
ssoil, |
|
|
real (kind=kind_phys), intent(in) |
sag, |
|
|
real (kind=kind_phys), intent(in) |
prcp, |
|
|
real (kind=kind_phys), intent(in) |
edir, |
|
|
|
ifdef, |
|
|
|
CCPP |
|
) |
| |
|
private |