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 |