40 USE yomhook
,ONLY : lhook, dr_hook
41 USE parkind1
,ONLY : jprb
48 INTEGER,
INTENT(IN) :: kgrid_par
49 INTEGER,
INTENT(IN) :: kl
50 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
51 REAL,
DIMENSION(KL),
INTENT(OUT) :: pdx
52 REAL,
DIMENSION(KL),
INTENT(OUT) :: pdy
58 REAL,
DIMENSION(KL) :: zx
59 REAL,
DIMENSION(KL) :: zy
60 REAL,
DIMENSION(KL) :: zlat
61 REAL,
DIMENSION(KL) :: zlon
62 REAL,
DIMENSION(KL) :: zmap
63 REAL(KIND=JPRB) :: zhook_handle
67 IF (lhook) CALL dr_hook(
'GET_MESH_DIM_LONLATVAL',0,zhook_handle)
82 pdx(:) = pdx(:) * (xpi / 180.) * xradius * cos(zlat(:)*xpi/180.)
83 pdy(:) = pdy(:) * (xpi / 180.) * xradius
84 IF (lhook) CALL dr_hook(
'GET_MESH_DIM_LONLATVAL',1,zhook_handle)
subroutine get_gridtype_lonlatval(PGRID_PAR, KL, PX, PY, PDX, PDY)
subroutine latlon_lonlatval(PX, PY, PLAT, PLON)
subroutine get_mesh_dim_lonlatval(KGRID_PAR, KL, PGRID_PAR, PDX, PDY)