44 USE modi_regrot_lonlat_rot
48 USE yomhook
,ONLY : lhook, dr_hook
49 USE parkind1
,ONLY : jprb
56 INTEGER,
INTENT(IN) :: kgrid_par
57 INTEGER,
INTENT(IN) :: kl
58 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
59 REAL,
DIMENSION(KL),
INTENT(OUT) :: plat
60 REAL,
DIMENSION(KL),
INTENT(OUT) :: plon
61 REAL,
DIMENSION(KL),
INTENT(OUT) :: pmesh_size
62 REAL,
DIMENSION(KL),
INTENT(OUT) :: pdir
76 REAL,
DIMENSION(KL) :: zlon, zlat
77 INTEGER :: jlon, jlat, jl
79 REAL(KIND=JPRB) :: zhook_handle
85 IF (lhook) CALL dr_hook(
'LATLON_GRIDTYPE_LONLAT_ROT',0,zhook_handle)
88 zwest,zsouth,zdlon,zdlat,zpolon,zpolat, &
89 ilon,ilat,plon=plon,plat=plat )
100 pmesh_size(:) = ( xpi * xradius /180. )**2 * zdlat * zdlon * cos(zlat(:)*xpi/180.)
108 IF (lhook) CALL dr_hook(
'LATLON_GRIDTYPE_LONLAT_ROT',1,zhook_handle)
subroutine get_gridtype_lonlat_rot(PGRID_PAR, PWEST, PSOUTH, PDLON, PDLAT, PPOLON, PPOLAT, KLON, KLAT, KL, PLON, PLAT)
subroutine regrot_lonlat_rot(PXREG, PYREG, PXROT, PYROT, KXDIM, KYDIM, KX, KY, PXCEN, PYCEN, KCALL)
subroutine latlon_gridtype_lonlat_rot(KGRID_PAR, KL, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)