37 USE modi_prep_grib_grid
39 USE modd_prep, ONLY : cingrid_type, cinterp_type
43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
50 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
51 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
52 CHARACTER(LEN=28),
INTENT(IN) :: hfile
53 INTEGER,
INTENT(IN) :: kluout
54 REAL,
DIMENSION(:,:),
POINTER :: pfield
59 CHARACTER(LEN=6) :: yinmodel
60 REAL,
DIMENSION(:) ,
POINTER :: zmask => null()
61 REAL,
DIMENSION(:),
POINTER :: zfield => null()
62 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
'PREP_FLAKE_GRIB',0,zhook_handle)
71 IF (trim(hfile).NE.cgrib_file) cgrib_file=
""
73 CALL
prep_grib_grid(hfile,kluout,yinmodel,cingrid_type,tztime_grib)
88 SELECT CASE (yinmodel)
89 CASE (
'ECMWF ',
'ARPEGE',
'ALADIN',
'MOCAGE')
91 ALLOCATE(pfield(
SIZE(zfield),1))
92 pfield(:,1) = zfield(:)
101 SELECT CASE (yinmodel)
102 CASE (
'ECMWF ',
'ARPEGE',
'ALADIN',
'MOCAGE')
104 ALLOCATE(pfield(
SIZE(zfield),1))
105 pfield(:,1) = zfield(:)
116 cinterp_type=
'HORIBL'
118 IF (lhook) CALL dr_hook(
'PREP_FLAKE_GRIB',1,zhook_handle)
subroutine read_grib_zs_land(HGRIB, KLUOUT, HINMODEL, PMASK, PZSL)
subroutine read_grib_land_mask(HGRIB, KLUOUT, HINMODEL, PMASK)
subroutine prep_flake_grib(HPROGRAM, HSURF, HFILE, KLUOUT, PFIELD)
subroutine read_grib_t2(HGRIB, KLUOUT, HINMODEL, PMASK, PT2)
subroutine prep_grib_grid(HGRIB, KLUOUT, HINMODEL, HGRIDTYPE, TPTIME_GRIB)