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(:,:) :: XP
51 REAL,
POINTER,
DIMENSION(:,:) :: XDZ
52 REAL,
POINTER,
DIMENSION(:,:) :: XZF
53 REAL,
POINTER,
DIMENSION(:,:) :: XDZF
55 END TYPE isba_canopy_t
67 TYPE(isba_canopy_t
),
INTENT(INOUT) :: yisba_canopy
68 REAL(KIND=JPRB) :: zhook_handle
69 IF (lhook) CALL dr_hook(
"MODD_ISBA_CANOPY_N:ISBA_CANOPY_INIT",0,zhook_handle)
70 nullify(yisba_canopy%XZ)
71 nullify(yisba_canopy%XU)
72 nullify(yisba_canopy%XT)
73 nullify(yisba_canopy%XQ)
74 nullify(yisba_canopy%XTKE)
75 nullify(yisba_canopy%XLMO)
76 nullify(yisba_canopy%XP)
77 nullify(yisba_canopy%XDZ)
78 nullify(yisba_canopy%XZF)
79 nullify(yisba_canopy%XDZF)
81 IF (lhook) CALL dr_hook(
"MODD_ISBA_CANOPY_N:ISBA_CANOPY_INIT",1,zhook_handle)
subroutine isba_canopy_init(YISBA_CANOPY)