49 USE modi_write_watflux_n
50 USE modi_write_flake_n
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
68 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
69 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
74 REAL(KIND=JPRB) :: zhook_handle
80 IF (lhook) CALL dr_hook(
'WRITE_INLAND_WATER_N',0,zhook_handle)
81 IF (u%CWATER==
'WATFLX')
THEN
84 ELSE IF (u%CWATER==
'FLAKE ')
THEN
88 IF (lhook) CALL dr_hook(
'WRITE_INLAND_WATER_N',1,zhook_handle)
subroutine write_watflux_n(DTCO, DGU, U, WM, HPROGRAM, HWRITE)
subroutine write_inland_water_n(DTCO, DGU, U, WM, FM, HPROGRAM, HWRITE)
subroutine write_flake_n(DTCO, DGU, U, FM, HPROGRAM, HWRITE)