subroutine gfs_surface_generic_pre::update_vegetation_soil_slope_type |
( |
integer, intent(in) |
nthreads, |
|
|
integer, intent(in) |
im, |
|
|
integer, intent(in) |
isot, |
|
|
integer, intent(in) |
ivegsrc, |
|
|
integer, dimension(:), intent(in) |
islmsk, |
|
|
integer, dimension(:), intent(inout) |
vtype, |
|
|
integer, dimension(:), intent(inout) |
stype, |
|
|
integer, dimension(:), intent(inout) |
scolor, |
|
|
integer, dimension(:), intent(inout) |
slope |
|
) |
| |
|
private |