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
76 REAL(KIND=JPRB) :: zhook_handle
77 IF (lhook) CALL dr_hook(
"MODD_FLAKE_GRID_N:FLAKE_GRID_INIT",0,zhook_handle)
78 nullify(yflake_grid%XGRID_PAR)
79 nullify(yflake_grid%XLAT)
80 nullify(yflake_grid%XLON)
81 nullify(yflake_grid%XMESH_SIZE)
84 IF (lhook) CALL dr_hook(
"MODD_FLAKE_GRID_N:FLAKE_GRID_INIT",1,zhook_handle)
subroutine flake_grid_init(YFLAKE_GRID)