42 USE yomhook
,ONLY : lhook, dr_hook
43 USE parkind1
,ONLY : jprb
50 LOGICAL,
INTENT(OUT) :: onowrite_canopy
51 LOGICAL,
INTENT(OUT) :: onowrite_texfile
52 REAL(KIND=JPRB) :: zhook_handle
58 IF (lhook) CALL dr_hook(
'DEFAULT_WRITE_SURF_ATM',0,zhook_handle)
59 onowrite_canopy = .false.
60 onowrite_texfile = .true.
61 IF (lhook) CALL dr_hook(
'DEFAULT_WRITE_SURF_ATM',1,zhook_handle)
subroutine default_write_surf_atm(ONOWRITE_CANOPY, ONOWRITE_TEXFILE)