6 SUBROUTINE latlon_grid(HGRID,KGRID_PAR,KL,KLUOUT,PGRID_PAR,PLAT,PLON,PMESH_SIZE,PDIR)
43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
48 USE modi_latlon_gridtype_cartesian
50 USE modi_latlon_gridtype_conf_proj
52 USE modi_latlon_gridtype_gauss
54 USE modi_latlon_gridtype_ign
56 USE modi_latlon_gridtype_lonlat_reg
58 USE modi_latlon_gridtype_lonlatval
60 USE modi_latlon_gridtype_lonlat_rot
66 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
67 INTEGER,
INTENT(IN) :: kgrid_par
68 INTEGER,
INTENT(IN) :: kl
69 INTEGER,
INTENT(IN) :: kluout
70 REAL,
DIMENSION(:),
INTENT(IN) :: pgrid_par
71 REAL,
DIMENSION(:),
INTENT(OUT) :: plat
72 REAL,
DIMENSION(:),
INTENT(OUT) :: plon
73 REAL,
DIMENSION(:),
INTENT(OUT) :: pmesh_size
74 REAL,
DIMENSION(:),
INTENT(OUT),
OPTIONAL :: pdir
79 REAL,
DIMENSION(KL) :: zdir
80 REAL(KIND=JPRB) :: zhook_handle
83 IF (lhook) CALL dr_hook(
'LATLON_GRID',0,zhook_handle)
91 IF (present(pdir)) pdir = zdir
102 IF (present(pdir)) pdir = zdir
110 IF (present(pdir)) pdir = zdir
120 IF (present(pdir)) pdir = zdir
127 IF (present(pdir)) pdir = zdir
134 IF (present(pdir)) pdir = zdir
141 IF (present(pdir)) pdir = zdir
145 CALL
abor1_sfx(
'LATLON_GRID: GRID TYPE NOT SUPPORTED '//hgrid)
148 IF (lhook) CALL dr_hook(
'LATLON_GRID',1,zhook_handle)
subroutine latlon_gridtype_gauss(KGRID_PAR, KL, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine latlon_grid(HGRID, KGRID_PAR, KL, KLUOUT, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine latlon_gridtype_conf_proj(KGRID_PAR, KL, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine latlon_gridtype_ign(KGRID_PAR, KL, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine abor1_sfx(YTEXT)
subroutine latlon_gridtype_cartesian(KGRID_PAR, KL, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine latlon_gridtype_lonlatval(KGRID_PAR, KL, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine latlon_gridtype_lonlat_rot(KGRID_PAR, KL, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)
subroutine latlon_gridtype_lonlat_reg(KGRID_PAR, KL, PGRID_PAR, PLAT, PLON, PMESH_SIZE, PDIR)