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_WATFLUX_GRID_N:WATFLUX_GRID_INIT",0,zhook_handle)
78 nullify(ywatflux_grid%XGRID_PAR)
79 nullify(ywatflux_grid%XLAT)
80 nullify(ywatflux_grid%XLON)
81 nullify(ywatflux_grid%XMESH_SIZE)
83 ywatflux_grid%CGRID=
' '
84 IF (lhook) CALL dr_hook(
"MODD_WATFLUX_GRID_N:WATFLUX_GRID_INIT",1,zhook_handle)
subroutine watflux_grid_init(YWATFLUX_GRID)