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