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
57 REAL,
DIMENSION(KL) :: zlat
66 INTEGER :: jlon, jlat, jl
67 REAL(KIND=JPRB) :: zhook_handle
74 IF (lhook) CALL dr_hook(
'GET_MESH_DIM_LONLAT_ROT',0,zhook_handle)
77 zwest,zsouth,zdlon,zdlat,zpolon,zpolat, &
87 jl = jlon + ilon * (jlat-1)
88 zlat(jl) = zsouth + zdlat * (jlat-1)
92 pdx(:) = zdlon * (xpi / 180.) * xradius * cos(zlat(:)*xpi/180.)
93 pdy(:) = zdlat * (xpi / 180.) * xradius
94 IF (lhook) CALL dr_hook(
'GET_MESH_DIM_LONLAT_ROT',1,zhook_handle)
subroutine get_gridtype_lonlat_rot(PGRID_PAR, PWEST, PSOUTH, PDLON, PDLAT, PPOLON, PPOLAT, KLON, KLAT, KL, PLON, PLAT)
subroutine get_mesh_dim_lonlat_rot(KGRID_PAR, KL, PGRID_PAR, PDX, PDY)