49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
59 INTEGER,
INTENT(IN) :: kluout
60 CHARACTER(LEN=6),
INTENT(OUT) :: hinmodel
67 REAL(KIND=JPRB) :: zhook_handle
71 IF (lhook) CALL dr_hook(
'PREP_BUFFER_GRID',0,zhook_handle)
72 WRITE (kluout,
'(A)')
' -- Buffer reader started'
81 IF (hinmodel ==
'ALADIN' )
THEN
82 WRITE (kluout,
'(A)')
' | Grib file from French Weather Service - Aladin model'
84 CALL
abor1_sfx(
'PREP_BUFFER_GRID: UNSUPPORTED GRIB FILE FORMAT')
92 WRITE (kluout,*)
'apres READ BUFFER NNI=',nni
97 WRITE (kluout,
'(A)')
' | Reading date'
99 CALL
read_buffer(
'YEAR ',tptime_buf%TDATE%YEAR,iret )
100 CALL
read_buffer(
'MONTH ',tptime_buf%TDATE%MONTH,iret )
101 CALL
read_buffer(
'DAY ',tptime_buf%TDATE%DAY,iret )
103 IF (lhook) CALL dr_hook(
'PREP_BUFFER_GRID',1,zhook_handle)
subroutine prep_buffer_grid(KLUOUT, HINMODEL, TPTIME_BUF)
subroutine abor1_sfx(YTEXT)