44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
52 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
53 INTEGER,
INTENT(IN) :: ksize_full
54 INTEGER,
INTENT(IN) :: kgrid_par
55 REAL,
DIMENSION(:),
POINTER :: pgrid_par
61 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
'PUT_PGD_GRID',0,zhook_handle)
74 ALLOCATE(xgrid_par(ngrid_par))
77 IF (lhook) CALL dr_hook(
'GRID_FROM_FILE',1,zhook_handle)
subroutine put_pgd_grid(HGRID, KSIZE_FULL, KGRID_PAR, PGRID_PAR)