7 olatlonmask,hgrid,pgrid_par,kgrid_par)
43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
53 CHARACTER(LEN=10),
INTENT(OUT) :: hgrid
54 REAL,
DIMENSION(:),
POINTER :: pgrid_par
55 INTEGER,
INTENT(OUT) :: kgrid_par
56 LOGICAL,
DIMENSION(:,:),
INTENT(OUT) :: olatlonmask
57 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'GET_LATLONMASK_N',0,zhook_handle)
67 ug%NGRID_PAR=
SIZE(ug%XGRID_PAR)
69 CALL
latlonmask(ug%CGRID,ug%NGRID_PAR,ug%XGRID_PAR,olatlonmask)
73 kgrid_par=ug%NGRID_PAR
75 ALLOCATE(pgrid_par(kgrid_par))
77 pgrid_par(:)=ug%XGRID_PAR(:)
78 IF (lhook) CALL dr_hook(
'GET_LATLONMASK_N',1,zhook_handle)
subroutine latlonmask(HGRID, KGRID_PAR, PGRID_PAR, OLATLONMASK)
subroutine get_latlonmask_n(UG, OLATLONMASK, HGRID, PGRID_PAR, KGRID_PAR)