38 USE yomhook
,ONLY : lhook, dr_hook
39 USE parkind1
,ONLY : jprb
46 INTEGER,
INTENT(IN) :: kgrid_par
47 INTEGER,
INTENT(IN) :: kl
48 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
49 REAL,
DIMENSION(KL),
INTENT(OUT) :: pdx
50 REAL,
DIMENSION(KL),
INTENT(OUT) :: pdy
56 REAL,
DIMENSION(KL) :: zx
57 REAL,
DIMENSION(KL) :: zy
58 REAL,
DIMENSION(KL) :: zlat
59 REAL,
DIMENSION(KL) :: zlon
60 REAL,
DIMENSION(KL) :: zmap
61 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'GET_MESH_DIM_IGN',0,zhook_handle)
67 px=zx,py=zy,pdx=pdx,pdy=pdy )
83 pdx(:) = pdx(:) / zmap(:)
84 pdy(:) = pdy(:) / zmap(:)
85 IF (lhook) CALL dr_hook(
'GET_MESH_DIM_IGN',1,zhook_handle)
subroutine get_mesh_dim_ign(KGRID_PAR, KL, PGRID_PAR, PDX, PDY)
subroutine get_gridtype_ign(PGRID_PAR, KLAMBERT, KL, PX, PY, PDX, PDY, KDIMX, KDIMY, PXALL, PYALL)
subroutine latlon_ign(KLAMBERT, PX, PY, PLAT, PLON)
subroutine map_factor_ign(KLAMBERT, PX, PY, PMAP)