43 USE yomhook
,ONLY : lhook, dr_hook
44 USE parkind1
,ONLY : jprb
51 LOGICAL,
INTENT(OUT) :: och_bio_flux
52 REAL(KIND=JPRB) :: zhook_handle
61 IF (lhook) CALL dr_hook(
'DEFAULT_CH_BIO_FLUX',0,zhook_handle)
63 IF (lhook) CALL dr_hook(
'DEFAULT_CH_BIO_FLUX',1,zhook_handle)
subroutine default_ch_bio_flux(OCH_BIO_FLUX)