35 USE modi_prep_grib_grid
38 USE modd_prep, ONLY : cingrid_type, cinterp_type
45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
54 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
55 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
56 CHARACTER(LEN=28),
INTENT(IN) :: hfile
57 INTEGER,
INTENT(IN) :: kluout
58 REAL,
DIMENSION(:,:,:),
POINTER :: pfield
59 LOGICAL,
OPTIONAL,
INTENT(INOUT) :: okey
64 CHARACTER(LEN=6) :: yinmodel
65 REAL,
DIMENSION(:) ,
POINTER :: zmask => null()
66 REAL,
DIMENSION(:,:),
POINTER :: zfield => null()
67 REAL,
DIMENSION(:),
POINTER :: zfield1d => null()
68 REAL,
DIMENSION(:,:),
POINTER :: zd => null()
70 REAL(KIND=JPRB) :: zhook_handle
77 IF (lhook) CALL dr_hook(
'PREP_ISBA_GRIB',0,zhook_handle)
79 IF (trim(hfile).NE.cgrib_file) cgrib_file=
""
81 CALL
prep_grib_grid(hfile,kluout,yinmodel,cingrid_type,tztime_grib)
100 IF(present(okey))okey=.false.
102 CASE(
'ARPEGE',
'ALADIN',
'MOCAGE')
111 SELECT CASE(yinmodel)
113 IF(present(okey))okey=.false.
115 CASE(
'ARPEGE',
'ALADIN',
'MOCAGE')
126 SELECT CASE(yinmodel)
128 IF(present(okey))okey=.false.
130 CASE(
'ARPEGE',
'ALADIN',
'MOCAGE')
140 ALLOCATE(pfield(nni,1,1))
141 pfield(:,:,:) = xwr_def
144 ALLOCATE(pfield(nni,1,1))
145 pfield(:,:,:) = xundef
152 ALLOCATE(pfield(
SIZE(zfield1d,1),1,1))
153 pfield(:,1,1)=zfield1d(:)
157 ALLOCATE(pfield(nni,1,1))
163 ALLOCATE(pfield(nni,1,1))
164 pfield(:,:,:) = xwrv_def
167 ALLOCATE(pfield(nni,1,1))
168 pfield(:,:,:) = xwrvn_def
171 ALLOCATE(pfield(nni,1,1))
172 pfield(:,:,:) = xqc_def
176 SELECT CASE(yinmodel)
178 IF(present(okey))okey=.false.
180 CASE(
'ARPEGE',
'ALADIN',
'MOCAGE')
185 ALLOCATE(pfield(nni,1,1))
186 pfield(:,1,1) =zfield(:,1)
191 CALL
abor1_sfx(
'PREP_ISBA_GRIB: '//trim(hsurf)//
" initialization not implemented !")
200 cinterp_type=
'HORIBL'
205 IF (lhook) CALL dr_hook(
'PREP_ISBA_GRIB',1,zhook_handle)
213 REAL,
DIMENSION(:,:),
ALLOCATABLE :: zout
214 REAL(KIND=JPRB) :: zhook_handle
220 IF (lhook) CALL dr_hook(
'SOIL_PROFILE_GRIB',0,zhook_handle)
221 ALLOCATE(zout(
SIZE(zfield,1),
SIZE(xgrid_soil)))
225 ALLOCATE(pfield(
SIZE(zfield,1),
SIZE(xgrid_soil),1))
226 pfield(:,:,1)=zout(:,:)
231 IF (lhook) CALL dr_hook(
'SOIL_PROFILE_GRIB',1,zhook_handle)
subroutine prep_isba_grib(HPROGRAM, HSURF, HFILE, KLUOUT, PFIELD, OKEY)
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)