35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
43 INTEGER,
INTENT(IN) :: kluout
44 INTEGER,
INTENT(IN) :: ksize_veg
45 INTEGER,
INTENT(IN) :: ksize_patch
46 INTEGER,
INTENT(IN) :: ksize_nat
47 INTEGER,
INTENT(IN),
DIMENSION(KSIZE_PATCH) :: kmask_patch_nature
48 INTEGER,
INTENT(IN) :: kpatch_max
50 INTEGER,
INTENT(IN) :: kpatch
51 INTEGER,
INTENT(IN) :: kvegtype
53 REAL,
DIMENSION(KSIZE_NAT,NVEGTYPE,KPATCH_MAX),
INTENT(IN) :: pvegtype_patch
56 INTEGER,
DIMENSION(KSIZE_VEG),
INTENT(OUT) :: kmask
64 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'GET_VEGTYPE_2_PATCH_MASK',0,zhook_handle)
73 ii=kmask_patch_nature(jj)
74 IF(pvegtype_patch(ii,kvegtype,kpatch)>0.)
THEN
80 IF(kk-1.ne.ksize_veg)
THEN
81 WRITE(kluout,*)
"ERROR in routine GET_VEGTYPE_2_PATCH_MASK"
82 WRITE(kluout,*)
"problem in number of vegetation types"
83 WRITE(kluout,*)
"KK-1 =", kk-1
84 WRITE(kluout,*)
"KSIZE_VEG=", ksize_veg
85 CALL
abor1_sfx(
'GET_VEGTYPE_2_PATCH_MASK: WRONG NUMBER OF VEGETATION TYPES')
87 IF (lhook) CALL dr_hook(
'GET_VEGTYPE_2_PATCH_MASK',1,zhook_handle)
subroutine abor1_sfx(YTEXT)
subroutine get_vegtype_2_patch_mask(KLUOUT, KSIZE_VEG, KSIZE_PATCH, KSIZE_NAT, KMASK_PATCH_NATURE, PVEGTYPE_PATCH, KMASK, KPATCH_MAX, KPATCH, KVEGTYPE)