Go to the source code of this file.
Functions/Subroutines | |
subroutine | get_vegtype_2_patch_mask (KLUOUT, KSIZE_VEG, KSIZE_PATCH, KSIZE_NAT, KMASK_PATCH_NATURE, PVEGTYPE_PATCH, KMASK, KPATCH_MAX, KPATCH, KVEGTYPE) |
subroutine get_vegtype_2_patch_mask | ( | integer, intent(in) | KLUOUT, |
integer, intent(in) | KSIZE_VEG, | ||
integer, intent(in) | KSIZE_PATCH, | ||
integer, intent(in) | KSIZE_NAT, | ||
integer, dimension(ksize_patch), intent(in) | KMASK_PATCH_NATURE, | ||
real, dimension(ksize_nat,nvegtype,kpatch_max), intent(in) | PVEGTYPE_PATCH, | ||
integer, dimension(ksize_veg), intent(out) | KMASK, | ||
integer, intent(in) | KPATCH_MAX, | ||
integer, intent(in) | KPATCH, | ||
integer, intent(in) | KVEGTYPE | ||
) |
Definition at line 5 of file get_vegtype_2_patch_mask.F90.