35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
42 REAL,
POINTER,
DIMENSION(:) :: XEMIS_PANEL
43 REAL,
POINTER,
DIMENSION(:) :: XALB_PANEL
44 REAL,
POINTER,
DIMENSION(:) :: XEFF_PANEL
45 REAL,
POINTER,
DIMENSION(:) :: XFRAC_PANEL
46 REAL,
POINTER,
DIMENSION(:) :: XTHER_PRODC_DAY
61 REAL(KIND=JPRB) :: zhook_handle
62 IF (lhook) CALL dr_hook(
"MODD_TEB_PANEL_N:TEB_PANEL_INIT",0,zhook_handle)
63 nullify(yteb_panel%XEMIS_PANEL)
64 nullify(yteb_panel%XALB_PANEL)
65 nullify(yteb_panel%XEFF_PANEL)
66 nullify(yteb_panel%XFRAC_PANEL)
67 nullify(yteb_panel%XTHER_PRODC_DAY)
68 IF (lhook) CALL dr_hook(
"MODD_TEB_PANEL_N:TEB_PANEL_INIT",1,zhook_handle)
subroutine teb_panel_init(YTEB_PANEL)