7 plonmin,plonmax,platmin,platmax,kx,ky,kl)
47 USE yomhook
,ONLY : lhook, dr_hook
48 USE parkind1
,ONLY : jprb
56 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
58 REAL,
INTENT(OUT) :: plonmin
59 REAL,
INTENT(OUT) :: plonmax
60 REAL,
INTENT(OUT) :: platmin
61 REAL,
INTENT(OUT) :: platmax
62 INTEGER,
INTENT(OUT) :: kx
63 INTEGER,
INTENT(OUT) :: ky
64 INTEGER,
INTENT(OUT) :: kl
69 CHARACTER(LEN=100) :: ycomment
70 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'GET_GRID_CONF_ISBA_N',0,zhook_handle)
74 SELECT CASE (ig%CGRID)
88 IF (lhook) CALL dr_hook(
'GET_GRID_CONF_ISBA_N',1,zhook_handle)
subroutine get_gridtype_lonlat_reg(PGRID_PAR, PLONMIN, PLONMAX, PLATMIN, PLATMAX, KLON, KLAT, KL, PLON, PLAT)
subroutine get_grid_conf_isba_n(IG, PLONMIN, PLONMAX, PLATMIN, PLATMAX, KX, KY, KL)