34 USE yomhook
,ONLY : lhook, dr_hook
35 USE parkind1
,ONLY : jprb
45 CHARACTER(LEN=10) :: CGRID
50 REAL,
POINTER,
DIMENSION(:) :: XGRID_PAR
57 REAL,
POINTER,
DIMENSION(:) :: XLAT
58 REAL,
POINTER,
DIMENSION(:) :: XLON
59 REAL,
POINTER,
DIMENSION(:) :: XMESH_SIZE
75 TYPE(isba_grid_t
),
INTENT(INOUT) :: yisba_grid
76 REAL(KIND=JPRB) :: zhook_handle
77 IF (lhook) CALL dr_hook(
"MODD_ISBA_GRID_N:ISBA_GRID_INIT",0,zhook_handle)
78 nullify(yisba_grid%XGRID_PAR)
79 nullify(yisba_grid%XLAT)
80 nullify(yisba_grid%XLON)
81 nullify(yisba_grid%XMESH_SIZE)
84 IF (lhook) CALL dr_hook(
"MODD_ISBA_GRID_N:ISBA_GRID_INIT",1,zhook_handle)
subroutine isba_grid_init(YISBA_GRID)