52 USE modi_init_io_surf_n
53 USE modi_writesurf_watflux_n
54 USE modi_writesurf_watflux_conf_n
55 USE modi_writesurf_watflux_sbl_n
56 USE modi_end_io_surf_n
59 USE yomhook
,ONLY : lhook, dr_hook
60 USE parkind1
,ONLY : jprb
74 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
75 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
80 REAL(KIND=JPRB) :: zhook_handle
84 IF (lhook) CALL dr_hook(
'WRITE_WATFLUX_N',0,zhook_handle)
86 hprogram,
'WATER ',
'WATFLX',
'WRITE')
106 IF (lhook) CALL dr_hook(
'WRITE_WATFLUX_N',1,zhook_handle)
subroutine writesurf_watflux_conf_n(CHW, W, HPROGRAM)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine write_watflux_n(DTCO, DGU, U, WM, HPROGRAM, HWRITE)
subroutine writesurf_watflux_n(DGU, U, W, HPROGRAM)
subroutine writesurf_watflux_sbl_n(DGU, U, W, WSB, HPROGRAM, HWRITE)
subroutine end_io_surf_n(HPROGRAM)