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
66 REAL,
DIMENSION(KL) :: zx
67 REAL,
DIMENSION(KL) :: zy
68 REAL,
DIMENSION(KL) :: zlat
69 REAL,
DIMENSION(KL) :: zlon
70 REAL,
DIMENSION(KL) :: zmap
71 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
'GET_MESH_DIM_CONF_PROJ',0,zhook_handle)
78 px=zx,py=zy,pdx=pdx,pdy=pdy )
94 pdx(:) = pdx(:) / zmap(:)
95 pdy(:) = pdy(:) / zmap(:)
96 IF (lhook) CALL dr_hook(
'GET_MESH_DIM_CONF_PROJ',1,zhook_handle)
subroutine map_factor_conf_proj(PLAT0, PRPK, PLAT, PMAP)
subroutine latlon_conf_proj(PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, PX, PY, PLAT, PLON)
subroutine get_mesh_dim_conf_proj(KGRID_PAR, KL, PGRID_PAR, PDX, PDY)
subroutine get_gridtype_conf_proj(PGRID_PAR, PLAT0, PLON0, PRPK, PBETA, PLATOR, PLONOR, KIMAX, KJMAX, PX, PY, PDX, PDY, KL)