37 USE modi_prep_grib_grid
40 USE modd_prep, ONLY : cingrid_type, cinterp_type
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
56 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
57 CHARACTER(LEN=10),
INTENT(IN) :: hsurf
58 CHARACTER(LEN=28),
INTENT(IN) :: hfile
59 INTEGER,
INTENT(IN) :: kluout
60 INTEGER,
INTENT(IN) :: klayer
61 REAL,
DIMENSION(:,:,:),
POINTER :: pfield
66 CHARACTER(LEN=6) :: yinmodel
67 REAL,
DIMENSION(:) ,
POINTER :: zmask => null()
68 REAL,
DIMENSION(:),
POINTER :: zfield1d => null()
69 REAL,
DIMENSION(:),
POINTER :: zheat => null()
70 REAL,
DIMENSION(:),
POINTER :: zrho => null()
73 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'PREP_SNOW_GRIB',0,zhook_handle)
82 IF (trim(hfile).NE.cgrib_file) cgrib_file=
""
84 CALL
prep_grib_grid(hfile,kluout,yinmodel,cingrid_type,tztime_grib)
93 IF (hsurf(7:8)==
'RO')
THEN
95 SELECT CASE(hsurf(1:3))
97 ALLOCATE(pfield(nni,klayer,1))
99 ALLOCATE(pfield(nni,1,1))
101 ALLOCATE(pfield(nni,ngrid_level,1))
113 SELECT CASE(hsurf(1:3))
120 ALLOCATE(pfield(
SIZE(zfield1d),1,nvegtype))
121 DO jvegtype=1,nvegtype
122 pfield(:,1,jvegtype)=zfield1d(:)
132 ALLOCATE(pfield(
SIZE(zfield1d),klayer,nvegtype))
133 DO jvegtype=1,nvegtype
134 CALL
snow3lgrid(pfield(:,:,jvegtype),zfield1d(:))
144 WHERE (zfield1d/=xundef) zfield1d(:) = min(zfield1d,xtt)
146 ALLOCATE(zheat(
SIZE(zfield1d)))
148 WHERE(zfield1d(:)==xundef)zrho(:)=xundef
152 ALLOCATE(pfield(
SIZE(zfield1d),ngrid_level,nvegtype))
153 DO jvegtype=1,nvegtype
154 DO jlayer=1,ngrid_level
155 pfield(:,jlayer,jvegtype)=zheat(:)
166 ALLOCATE(pfield(
SIZE(zfield1d),1,nvegtype))
167 DO jvegtype=1,nvegtype
168 pfield(:,1,jvegtype)=zfield1d(:)
176 ALLOCATE(pfield(
SIZE(zfield1d),1,nvegtype))
177 DO jvegtype=1,nvegtype
178 pfield(:,1,jvegtype)=zfield1d(:)
185 ALLOCATE(pfield(nni,ngrid_level,nvegtype))
191 ALLOCATE(pfield(nni,ngrid_level,nvegtype))
197 ALLOCATE(pfield(nni,ngrid_level,nvegtype))
203 ALLOCATE(pfield(nni,ngrid_level,nvegtype))
217 cinterp_type=
'HORIBL'
219 IF (lhook) CALL dr_hook(
'PREP_SNOW_GRIB',1,zhook_handle)
subroutine read_grib_land_mask(HGRIB, KLUOUT, HINMODEL, PMASK)
subroutine read_grib_snow_alb(HGRIB, KLUOUT, HINMODEL, PMASK, PSNVA)
subroutine prep_snow_grib(HPROGRAM, HSURF, HFILE, KLUOUT, KLAYER, PFIELD)
subroutine prep_grib_grid(HGRIB, KLUOUT, HINMODEL, HGRIDTYPE, TPTIME_GRIB)
subroutine read_grib_ts(HGRIB, KLUOUT, HINMODEL, PMASK, PTS)
subroutine read_grib_snow_den(HGRIB, KLUOUT, HINMODEL, PMASK, PSNV)
subroutine read_grib_snow_veg_and_depth(HGRIB, KLUOUT, HINMODEL, PMASK, PSNV, PSNVD)