46 USE yomhook
,ONLY : lhook, dr_hook
47 USE parkind1
,ONLY : jprb
54 INTEGER,
INTENT(IN) :: kgrid_par
55 INTEGER,
INTENT(IN) :: kl
56 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
57 REAL,
DIMENSION(KL),
INTENT(OUT) :: plat
58 REAL,
DIMENSION(KL),
INTENT(OUT) :: plon
59 REAL,
DIMENSION(KL),
INTENT(OUT) :: pmesh_size
60 REAL,
DIMENSION(KL),
INTENT(OUT) :: pdir
74 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'LATLON_GRIDTYPE_LONLAT_REG',0,zhook_handle)
82 zlatmin,zlatmax,ilon,ilat,plon=plon,plat=plat )
89 zdlat = (zlatmax-zlatmin)/float(ilat)
90 zdlon = (zlonmax-zlonmin)/float(ilon)
92 pmesh_size(:) = xradius**2 * xpi/180.*(zdlon) &
93 * (sin((plat(:)+zdlat/2.)*xpi/180.)-sin((plat(:)-zdlat/2.)*xpi/180.))
101 IF (lhook) CALL dr_hook(
'LATLON_GRIDTYPE_LONLAT_REG',1,zhook_handle)
subroutine latlon_gridtype_lonlat_reg(KGRID_PAR, KL, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine get_gridtype_lonlat_reg(PGRID_PAR, PLONMIN, PLONMAX, PLATMIN, PLATMAX, KLON, KLAT, KL, PLON, PLAT)