7 hprogram,hfile,hfiletype,tptime,kluout)
37 USE modi_prep_grib_grid
39 USE modi_open_aux_io_surf
41 USE modi_close_aux_io_surf
45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
54 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
55 CHARACTER(LEN=28),
INTENT(IN) :: hfile
56 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
58 INTEGER,
INTENT(IN) :: kluout
62 CHARACTER(LEN=12),
DIMENSION(3000) :: hrec
64 CHARACTER(LEN=6) :: yinmodel
65 CHARACTER(LEN=10) :: ygridtype
67 REAL(KIND=JPRB) :: zhook_handle
74 IF (lhook) CALL dr_hook(
'READ_PREP_FILE_DATE',0,zhook_handle)
75 IF(hfiletype==
'GRIB ')
THEN
79 ELSE IF(hfiletype==
'MESONH' .OR. hfiletype==
'LFI ' .OR. hfiletype==
'ASCII '.OR. hfiletype==
'FA ')
THEN
84 hfile,hfiletype,
'FULL ')
86 hfiletype,
'DTCUR ',tptime,iresp)
91 ELSE IF(hfiletype==
'BUFFER')
THEN
100 WRITE(unit=kluout, fmt=*)
'STOP IN READ_PREP_FILE_DATE'
101 WRITE(unit=kluout, fmt=
'("FILETYPE =",A6,"NOT SUPPORTED")') hfiletype
104 IF (lhook) CALL dr_hook(
'READ_PREP_FILE_DATE',1,zhook_handle)
subroutine close_aux_io_surf(HFILE, HFILETYPE)
subroutine read_prep_file_date(HPROGRAM, HFILE, HFILETYPE, TPTIME, KLUOUT)
subroutine open_aux_io_surf(HFILE, HFILETYPE, HMASK)
subroutine prep_grib_grid(HGRIB, KLUOUT, HINMODEL, HGRIDTYPE, TPTIME_GRIB)