38 USE yomhook
,ONLY : lhook, dr_hook
39 USE parkind1
,ONLY : jprb
46 INTEGER,
INTENT(IN) :: kgrid_par
47 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
48 LOGICAL,
INTENT(OUT) :: orect
49 INTEGER,
INTENT(OUT) :: kdim1
50 INTEGER,
INTENT(OUT) :: kdim2
55 REAL,
DIMENSION(:),
ALLOCATABLE :: zx, zy,v0
57 REAL(KIND=JPRB) :: zhook_handle
60 IF (lhook) CALL dr_hook(
'GET_GRID_DIM_LONLATVAL',0,zhook_handle)
75 IF (zx(jx)==zx(jy) .AND. jx.NE.jy) v0(jy)=0
85 IF (zy(jx)==zy(jy) .AND. jx.NE.jy) v0(jy)=0
94 IF (lhook) CALL dr_hook(
'GET_GRID_DIM_LONLATVAL',1,zhook_handle)
subroutine get_grid_dim_lonlatval(KGRID_PAR, PGRID_PAR, ORECT, KDIM1, KDIM2)
subroutine get_gridtype_lonlatval(PGRID_PAR, KL, PX, PY, PDX, PDY)