6 SUBROUTINE get_grid_dim(HGRID,KGRID_PAR,PGRID_PAR,ORECT,KDIM1,KDIM2)
36 USE modi_get_grid_dim_conf_proj
37 USE modi_get_grid_dim_cartesian
38 USE modi_get_grid_dim_lonlat_reg
39 USE modi_get_grid_dim_gauss
40 USE modi_get_grid_dim_lonlatval
41 USE modi_get_grid_dim_ign
42 USE modi_get_grid_dim_lonlat_rot
44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
52 CHARACTER(LEN=10),
INTENT(IN) :: hgrid
53 INTEGER,
INTENT(IN) :: kgrid_par
54 REAL,
DIMENSION(KGRID_PAR),
INTENT(IN) :: pgrid_par
55 LOGICAL,
INTENT(OUT) :: orect
56 INTEGER,
INTENT(OUT) :: kdim1
57 INTEGER,
INTENT(OUT) :: kdim2
58 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'GET_GRID_DIM',0,zhook_handle)
95 IF (lhook) CALL dr_hook(
'GET_GRID_DIM',1,zhook_handle)
subroutine get_grid_dim_lonlatval(KGRID_PAR, PGRID_PAR, ORECT, KDIM1, KDIM2)
subroutine get_grid_dim_cartesian(KGRID_PAR, PGRID_PAR, ORECT, KDIM1, KDIM2)
subroutine get_grid_dim_lonlat_rot(KGRID_PAR, PGRID_PAR, ORECT, KDIM1, KDIM2)
subroutine get_grid_dim_gauss(KGRID_PAR, PGRID_PAR, ORECT, KDIM1, KDIM2)
subroutine get_grid_dim(HGRID, KGRID_PAR, PGRID_PAR, ORECT, KDIM1, KDIM2)
subroutine get_grid_dim_lonlat_reg(KGRID_PAR, PGRID_PAR, ORECT, KDIM1, KDIM2)
subroutine get_grid_dim_conf_proj(KGRID_PAR, PGRID_PAR, ORECT, KDIM1, KDIM2)
subroutine get_grid_dim_ign(KGRID_PAR, PGRID_PAR, ORECT, KDIM1, KDIM2)