16 USE yomhook
,ONLY : lhook, dr_hook
17 USE parkind1
,ONLY : jprb
26 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
27 LOGICAL,
INTENT(OUT) :: oclim_lai
33 CHARACTER(LEN=12) :: yrecfm
38 REAL(KIND=JPRB) :: zhook_handle
43 IF (lhook) CALL dr_hook(
'READ_LCLIM_LAI',0,zhook_handle)
46 hprogram,yrecfm,iversion,iresp)
49 hprogram,yrecfm,ibugfix,iresp)
51 IF (iversion<4 .OR. iversion==4 .AND. ibugfix==2)
THEN
56 hprogram,yrecfm,oclim_lai,iresp)
58 IF (lhook) CALL dr_hook(
'READ_LCLIM_LAI',1,zhook_handle)
subroutine read_lclim_lai(HPROGRAM, OCLIM_LAI)