43 USE modi_write_diag_watflux_n
44 USE modi_write_diag_flake_n
47 USE yomhook
,ONLY : lhook, dr_hook
48 USE parkind1
,ONLY : jprb
63 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
64 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
65 REAL(KIND=JPRB) :: zhook_handle
73 IF (lhook) CALL dr_hook(
'WRITE_DIAG_INLAND_WATER_N',0,zhook_handle)
74 IF (u%CWATER==
'WATFLX')
THEN
78 IF (u%CWATER==
'FLAKE ')
THEN
82 IF (lhook) CALL dr_hook(
'WRITE_DIAG_INLAND_WATER_N',1,zhook_handle)
subroutine write_diag_inland_water_n(DTCO, DGU, U, WM, FM, HPROGRAM, HWRITE)
subroutine write_diag_watflux_n(DTCO, DGU, U, WM, HPROGRAM, HWRITE)
subroutine write_diag_flake_n(DTCO, DGU, U, FM, HPROGRAM, HWRITE)