35 USE modi_prep_grib_grid
37 USE modd_prep, ONLY : cingrid_type, cinterp_type
41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
48 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
49 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
50 CHARACTER(LEN=28),
INTENT(IN) :: hfile
51 INTEGER,
INTENT(IN) :: kluout
52 REAL,
DIMENSION(:,:),
POINTER :: pfield
57 CHARACTER(LEN=6) :: yinmodel
58 REAL,
DIMENSION(:) ,
POINTER:: zmask => null()
59 REAL,
DIMENSION(:),
POINTER :: zfield => null()
61 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'PREP_WATFLUX_GRIB',0,zhook_handle)
70 IF (trim(hfile).NE.cgrib_file) cgrib_file=
""
72 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(:)
100 SELECT CASE (yinmodel)
101 CASE (
'ECMWF ',
'ARPEGE',
'ALADIN',
'MOCAGE')
103 ALLOCATE(pfield(
SIZE(zfield),1))
104 pfield(:,1) = zfield(:)
115 cinterp_type=
'HORIBL'
117 IF (lhook) CALL dr_hook(
'PREP_WATFLUX_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_watflux_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)