31 USE yomhook
,ONLY : lhook, dr_hook
32 USE parkind1
,ONLY : jprb
41 REAL,
DIMENSION(:),
POINTER :: XISOPOT
42 REAL,
DIMENSION(:),
POINTER :: XMONOPOT
45 REAL,
DIMENSION(:,:,:),
POINTER ::XIACAN
49 REAL,
DIMENSION(:),
POINTER :: XFISO, XFMONO
65 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
"MODD_GR_BIOG_GARDEN_N:GR_BIOG_GARDEN_INIT",0,zhook_handle)
67 nullify(ygr_biog_garden%XISOPOT)
68 nullify(ygr_biog_garden%XMONOPOT)
69 nullify(ygr_biog_garden%XIACAN)
70 nullify(ygr_biog_garden%XFISO)
71 nullify(ygr_biog_garden%XFMONO)
72 IF (lhook) CALL dr_hook(
"MODD_GR_BIOG_GARDEN_N:GR_BIOG_GARDEN_INIT",1,zhook_handle)
subroutine gr_biog_garden_init(YGR_BIOG_GARDEN)