42 USE modi_get_dim_full_n
43 USE modi_get_size_full_n
44 USE modi_get_type_dim_n
45 USE modi_init_io_surf_mask_n
47 USE yomhook
,ONLY : lhook, dr_hook
48 USE parkind1
,ONLY : jprb
57 CHARACTER(LEN=6),
INTENT(IN) :: hmask
58 CHARACTER(LEN=5),
INTENT(IN) :: haction
60 INTEGER :: ilu, iret, il, iluout
61 REAL(KIND=JPRB) :: zhook_handle
63 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_BIN_N',0,zhook_handle)
77 hmask, il, iluout, ilu, nmask)
80 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_BIN_N',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine get_dim_full_n(U, KDIM_FULL)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_size_full_n(U, HPROGRAM, KDIM_FULL, KSIZE_FULL)
subroutine init_io_surf_mask_n(DTCO, U, HMASK, KSIZE, KLUOUT, KFULL, KMASK)
subroutine init_io_surf_bin_n(DTCO, U, HMASK, HACTION)