37 USE modi_prep_grib_grid
40 USE modd_prep, ONLY : cingrid_type, cinterp_type
47 USE yomhook
,ONLY : lhook, dr_hook
48 USE parkind1
,ONLY : jprb
56 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
57 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
58 CHARACTER(LEN=28),
INTENT(IN) :: hfile
59 INTEGER,
INTENT(IN) :: kluout
60 REAL,
DIMENSION(:,:,:),
POINTER :: pfield
65 CHARACTER(LEN=6) :: yinmodel
66 REAL,
DIMENSION(:) ,
POINTER :: zmask => null()
67 REAL,
DIMENSION(:,:),
POINTER :: zfield => null()
68 REAL,
DIMENSION(:),
POINTER :: zfield1d => null()
69 REAL,
DIMENSION(:,:),
POINTER :: zd => null()
71 REAL(KIND=JPRB) :: zhook_handle
78 IF (lhook) CALL dr_hook(
'PREP_TEB_GARDEN_GRIB',0,zhook_handle)
80 IF (trim(hfile).NE.cgrib_file) cgrib_file=
""
82 CALL
prep_grib_grid(hfile,kluout,yinmodel,cingrid_type,tztime_grib)
101 CASE(
'ARPEGE',
'ALADIN',
'MOCAGE')
110 SELECT CASE(yinmodel)
113 CASE(
'ARPEGE',
'ALADIN',
'MOCAGE')
125 SELECT CASE(yinmodel)
128 CASE(
'ARPEGE',
'ALADIN',
'MOCAGE')
138 ALLOCATE(pfield(nni,1,nvegtype))
139 pfield(:,:,:) = xwr_def
142 ALLOCATE(pfield(nni,1,nvegtype))
143 pfield(:,:,:) = xundef
150 ALLOCATE(pfield(
SIZE(zfield1d,1),1,1))
151 pfield(:,1,1)=zfield1d(:)
155 CALL
abor1_sfx(
'PREP_TEB_GARDEN_GRIB: OPTION NOT SUPPORTED - '//hsurf)
164 cinterp_type=
'HORIBL'
169 IF (lhook) CALL dr_hook(
'PREP_TEB_GARDEN_GRIB',1,zhook_handle)
177 REAL,
DIMENSION(:,:),
ALLOCATABLE :: zout
178 REAL(KIND=JPRB) :: zhook_handle
184 IF (lhook) CALL dr_hook(
'SOIL_PROFILE_GRIB',0,zhook_handle)
185 ALLOCATE(zout(
SIZE(zfield,1),
SIZE(xgrid_soil)))
189 ALLOCATE(pfield(
SIZE(zfield,1),
SIZE(xgrid_soil),nvegtype))
190 DO jvegtype=1,nvegtype
191 pfield(:,:,jvegtype)=zout(:,:)
197 IF (lhook) CALL dr_hook(
'SOIL_PROFILE_GRIB',1,zhook_handle)
subroutine read_grib_zs_land(HGRIB, KLUOUT, HINMODEL, PMASK, PZSL)
subroutine read_grib_wg_hirlam(HGRIB, KLUOUT, HINMODEL, PMASK, PFIELD, PD)
subroutine read_grib_tg_meteo_france(HGRIB, KLUOUT, HINMODEL, PMASK, PTG, PDT)
subroutine soil_profile_grib
subroutine read_grib_wgi_meteo_france(HGRIB, KLUOUT, HINMODEL, PMASK, PFIELD, PD)
subroutine read_grib_land_mask(HGRIB, KLUOUT, HINMODEL, PMASK)
subroutine abor1_sfx(YTEXT)
subroutine read_grib_wgi_hirlam(HGRIB, KLUOUT, PFIELD, PD)
subroutine read_grib_wg_meteo_france(HGRIB, KLUOUT, HINMODEL, PMASK, PFIELD, PD)
subroutine read_grib_tg_ecmwf(HGRIB, KLUOUT, HINMODEL, PMASK, PTG, PD)
subroutine read_grib_wgi_ecmwf(HGRIB, KLUOUT, HINMODEL, PMASK, PFIELD, PD)
subroutine read_grib_wg_ecmwf(HGRIB, KLUOUT, HINMODEL, PMASK, PFIELD, PD)
subroutine read_grib_tg_hirlam(HGRIB, KLUOUT, HINMODEL, PMASK, PTG, PDT)
subroutine prep_grib_grid(HGRIB, KLUOUT, HINMODEL, HGRIDTYPE, TPTIME_GRIB)
subroutine prep_teb_garden_grib(HPROGRAM, HSURF, HFILE, KLUOUT, PFIELD)