46 USE modd_data_cover, ONLY : xdata_lai, xdata_lai_all_years, lclim_lai, &
47 neco2_start_year, neco2_end_year
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
66 REAL,
DIMENSION(36) :: zlai
69 INTEGER :: jcover,jvegtype
71 REAL(KIND=JPRB) :: zhook_handle
78 IF (lhook) CALL dr_hook(
'ECOCLIMAP2_LAI',0,zhook_handle)
79 xdata_lai(301:,:,:) = xundef
84 IF (lclim_lai .OR. dtco%NYEAR<neco2_start_year .OR. dtco%NYEAR>neco2_end_year)
THEN
87 DO jvegtype=1,nvegtype
88 IF (dtco%XDATA_VEGTYPE(jcover,jvegtype).ne.0.)
THEN
91 zlai(:) = zlai(:) + xdata_lai_all_years(jcover,(jyear-1)*36+1:jyear*36,jvegtype)/5.
93 xdata_lai(jcover,:,jvegtype) = zlai(:)
103 iyear = dtco%NYEAR - neco2_start_year
104 DO jcover=301,jpcover
105 DO jvegtype=1,nvegtype
106 IF (dtco%XDATA_VEGTYPE(jcover,jvegtype).ne.0.)
THEN
107 xdata_lai(jcover,:,jvegtype)=xdata_lai_all_years(jcover,iyear*36+1:(iyear+1)*36,jvegtype)
113 IF (lhook) CALL dr_hook(
'ECOCLIMAP2_LAI',1,zhook_handle)
subroutine ecoclimap2_lai(DTCO)