45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
55 CHARACTER(LEN=12),
INTENT(IN) :: hrec
56 CHARACTER(LEN=1),
INTENT(IN) :: haction
59 LOGICAL,
INTENT(OUT):: oknown
65 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'IO_BUFF',0,zhook_handle)
69 IF (haction==
'R' .OR. haction==
'W')
THEN
72 oknown=(hrec==crec(jloop))
73 IF (oknown .AND. lhook) CALL dr_hook(
'IO_BUFF',1,zhook_handle)
79 IF (lhook) CALL dr_hook(
'IO_BUFF',1,zhook_handle)
subroutine io_buff(HREC, HACTION, OKNOWN)