48 USE modi_init_io_surf_n
49 USE modi_writesurf_pgd_watflux_n
50 USE modi_end_io_surf_n
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
68 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
69 REAL(KIND=JPRB) :: zhook_handle
78 IF (lhook) CALL dr_hook(
'WRITE_PGD_WATFLUX_N',0,zhook_handle)
80 hprogram,
'WATER ',
'WATFLX',
'WRITE')
94 IF (lhook) CALL dr_hook(
'WRITE_PGD_WATFLUX_N',1,zhook_handle)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine end_io_surf_n(HPROGRAM)
subroutine write_pgd_watflux_n(DTCO, DGU, U, WG, W, HPROGRAM)
subroutine writesurf_pgd_watflux_n(DGU, U, WG, W, HPROGRAM)