49 USE modi_get_default_nam_n
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
64 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
71 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
'WRITESURF_WATFLUX_CONF_N',0,zhook_handle)
78 IF (iludes==0 .AND. lhook) CALL dr_hook(
'WRITESURF_WATFLUX_CONF_N',1,zhook_handle)
86 WRITE(unit=iludes,nml=nam_watfluxn)
87 WRITE(unit=iludes,nml=nam_ch_watfluxn)
88 IF (lhook) CALL dr_hook(
'WRITESURF_WATFLUX_CONF_N',1,zhook_handle)
subroutine writesurf_watflux_conf_n(CHW, W, HPROGRAM)
subroutine init_nam_watfluxn(W)
subroutine init_nam_ch_watfluxn(CHW)
subroutine get_default_nam_n(HPROGRAM, HACTION, KLUDES)