48 USE modi_init_io_surf_n
49 USE modi_writesurf_pgd_flake_n
50 USE modi_end_io_surf_n
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
66 TYPE(flake_t),
INTENT(INOUT) :: f
68 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
69 REAL(KIND=JPRB) :: zhook_handle
78 IF (lhook) CALL dr_hook(
'WRITE_PGD_FLAKE_N',0,zhook_handle)
80 hprogram,
'WATER ',
'FLAKE ',
'WRITE')
94 IF (lhook) CALL dr_hook(
'WRITE_PGD_FLAKE_N',1,zhook_handle)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine writesurf_pgd_flake_n(DGU, U, FG, F, HPROGRAM)
subroutine write_pgd_flake_n(DTCO, DGU, U, FG, F, HPROGRAM)
subroutine end_io_surf_n(HPROGRAM)