36 USE modi_prep_grib_grid
38 USE modd_prep, ONLY : cingrid_type, cinterp_type
42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
49 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
50 CHARACTER(LEN=7),
INTENT(IN) :: hsurf
51 CHARACTER(LEN=28),
INTENT(IN) :: hfile
52 INTEGER,
INTENT(IN) :: kluout
53 REAL,
DIMENSION(:,:),
POINTER :: pfield
58 CHARACTER(LEN=6) :: yinmodel
59 REAL,
DIMENSION(:) ,
POINTER :: zmask => null()
60 REAL,
DIMENSION(:),
POINTER :: zfield => null()
61 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'PREP_SEAFLUX_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)
86 SELECT CASE (yinmodel)
87 CASE (
'ECMWF ',
'ARPEGE',
'ALADIN',
'MOCAGE')
89 ALLOCATE(pfield(
SIZE(zfield),1))
90 pfield(:,1) = zfield(:)
99 SELECT CASE (yinmodel)
100 CASE (
'ECMWF ',
'ARPEGE',
'ALADIN',
'MOCAGE')
102 ALLOCATE(pfield(
SIZE(zfield),1))
103 pfield(:,1) = zfield(:)
111 ALLOCATE(pfield(nni,1))
121 cinterp_type=
'HORIBL'
122 IF (lhook) CALL dr_hook(
'PREP_SEAFLUX_GRIB',1,zhook_handle)
subroutine read_grib_zs_sea(HGRIB, KLUOUT, HINMODEL, PMASK, PZSS)
subroutine read_grib_land_mask(HGRIB, KLUOUT, HINMODEL, PMASK)
subroutine read_grib_sst(HGRIB, KLUOUT, HINMODEL, PMASK, PSST)
subroutine prep_grib_grid(HGRIB, KLUOUT, HINMODEL, HGRIDTYPE, TPTIME_GRIB)
subroutine prep_seaflux_grib(HPROGRAM, HSURF, HFILE, KLUOUT, PFIELD)