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
51 REAL,
DIMENSION(:),
POINTER :: XNOFLUX
66 TYPE(gr_biog_t),
INTENT(INOUT) :: ygr_biog
67 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
"MODD_GR_BIOG_N:GR_BIOG_INIT",0,zhook_handle)
69 nullify(ygr_biog%XISOPOT)
70 nullify(ygr_biog%XMONOPOT)
71 nullify(ygr_biog%XIACAN)
72 nullify(ygr_biog%XFISO)
73 nullify(ygr_biog%XFMONO)
74 nullify(ygr_biog%XNOFLUX)
75 IF (lhook) CALL dr_hook(
"MODD_GR_BIOG_N:GR_BIOG_INIT",1,zhook_handle)
subroutine gr_biog_init(YGR_BIOG)