50 USE modi_init_io_surf_n
51 USE modi_writesurf_flake_n
52 USE modi_writesurf_flake_sbl_n
53 USE modi_writesurf_flake_conf_n
54 USE modi_end_io_surf_n
57 USE yomhook
,ONLY : lhook, dr_hook
58 USE parkind1
,ONLY : jprb
71 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
72 CHARACTER(LEN=3),
INTENT(IN) :: hwrite
77 REAL(KIND=JPRB) :: zhook_handle
81 IF (lhook) CALL dr_hook(
'WRITE_FLAKE_N',0,zhook_handle)
83 hprogram,
'WATER ',
'FLAKE ',
'WRITE')
104 IF (lhook) CALL dr_hook(
'WRITE_FLAKE_N',1,zhook_handle)
subroutine init_io_surf_n(DTCO, DGU, U, HPROGRAM, HMASK, HSCHEME, HACTION)
subroutine writesurf_flake_n(DGU, U, F, HPROGRAM)
subroutine end_io_surf_n(HPROGRAM)
subroutine writesurf_flake_conf_n(CHF, DGMF, F, HPROGRAM)
subroutine writesurf_flake_sbl_n(DGU, U, F, FSB, HPROGRAM, HWRITE)
subroutine write_flake_n(DTCO, DGU, U, FM, HPROGRAM, HWRITE)