7 kluout,hgrid,pgrid_par,plat,plon)
47 USE modi_get_grid_coord
49 USE modd_prep, ONLY : xlat_out, xlon_out, xx_out, xy_out, linterp
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
64 INTEGER,
INTENT(IN) :: kluout
65 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
66 REAL,
DIMENSION(:),
POINTER :: pgrid_par
67 REAL,
DIMENSION(:),
INTENT(IN) :: plat
68 REAL,
DIMENSION(:),
INTENT(IN) :: plon
69 REAL(KIND=JPRB) :: zhook_handle
78 IF (lhook) CALL dr_hook(
'PREP_OUTPUT_GRID',0,zhook_handle)
79 IF (.NOT.
ALLOCATED(xlat_out))
ALLOCATE(xlat_out(
SIZE(plat)))
80 IF (.NOT.
ALLOCATED(xlon_out))
ALLOCATE(xlon_out(
SIZE(plat)))
81 IF (.NOT.
ALLOCATED(xx_out))
ALLOCATE(xx_out(
SIZE(plat)))
82 IF (.NOT.
ALLOCATED(xy_out))
ALLOCATE(xy_out(
SIZE(plat)))
84 IF (.NOT.
ALLOCATED(linterp))
ALLOCATE(linterp(
SIZE(plat)))
91 kluout,xx_out,xy_out,
SIZE(plat),hgrid,pgrid_par)
92 IF (lhook) CALL dr_hook(
'PREP_OUTPUT_GRID',1,zhook_handle)
subroutine get_grid_coord(UG, U, KLUOUT, PX, PY, KL, HGRID, PGRID_PAR)
subroutine prep_output_grid(UG, U, KLUOUT, HGRID, PGRID_PAR, PLAT, PLON)