45 USE yomhook
,ONLY : lhook, dr_hook
46 USE parkind1
,ONLY : jprb
53 INTEGER,
INTENT(IN) :: kgrid_par
54 INTEGER,
INTENT(IN) :: kl
55 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
56 REAL,
DIMENSION(KL),
INTENT(OUT) :: plat
57 REAL,
DIMENSION(KL),
INTENT(OUT) :: plon
58 REAL,
DIMENSION(KL),
INTENT(OUT) :: pmesh_size
59 REAL,
DIMENSION(KL),
INTENT(OUT) :: pdir
60 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
'LATLON_GRIDTYPE_GAUSS',0,zhook_handle)
83 IF (lhook) CALL dr_hook(
'LATLON_GRIDTYPE_GAUSS',1,zhook_handle)
subroutine latlon_gridtype_gauss(KGRID_PAR, KL, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine get_gridtype_gauss(PGRID_PAR, KNLATI, PLAPO, PLOPO, PCODIL, KNLOPA, KL, PLAT, PLON, PLAT_XY, PLON_XY, PMESH_SIZE, PLONINF, PLATINF, PLONSUP, PLATSUP)