35 USE yomhook
,ONLY : lhook, dr_hook
36 USE parkind1
,ONLY : jprb
43 REAL,
POINTER,
DIMENSION(:,:) :: XZ
44 REAL,
POINTER,
DIMENSION(:,:) :: XU
45 REAL,
POINTER,
DIMENSION(:,:) :: XT
46 REAL,
POINTER,
DIMENSION(:,:) :: XQ
47 REAL,
POINTER,
DIMENSION(:,:) :: XTKE
48 REAL,
POINTER,
DIMENSION(:,:) :: XLMO
49 REAL,
POINTER,
DIMENSION(:,:) :: XLM
50 REAL,
POINTER,
DIMENSION(:,:) :: XLEPS
51 REAL,
POINTER,
DIMENSION(:,:) :: XP
53 REAL,
POINTER,
DIMENSION(:,:) :: XDZ
54 REAL,
POINTER,
DIMENSION(:,:) :: XZF
55 REAL,
POINTER,
DIMENSION(:,:) :: XDZF
70 REAL(KIND=JPRB) :: zhook_handle
71 IF (lhook) CALL dr_hook(
"MODD_TEB_CANOPY_N:TEB_CANOPY_INIT",0,zhook_handle)
72 nullify(yteb_canopy%XZ)
73 nullify(yteb_canopy%XU)
74 nullify(yteb_canopy%XT)
75 nullify(yteb_canopy%XQ)
76 nullify(yteb_canopy%XTKE)
77 nullify(yteb_canopy%XLMO)
78 nullify(yteb_canopy%XLM)
79 nullify(yteb_canopy%XLEPS)
80 nullify(yteb_canopy%XP)
81 nullify(yteb_canopy%XDZ)
82 nullify(yteb_canopy%XZF)
83 nullify(yteb_canopy%XDZF)
85 IF (lhook) CALL dr_hook(
"MODD_TEB_CANOPY_N:TEB_CANOPY_INIT",1,zhook_handle)
subroutine teb_canopy_init(YTEB_CANOPY)