48 USE modi_get_dim_full_n
49 USE modi_get_size_full_n
50 USE modi_get_type_dim_n
51 USE modi_init_io_surf_mask_n
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
62 CHARACTER(LEN=6),
INTENT(IN) :: hmask
63 CHARACTER(LEN=5),
INTENT(IN) :: haction
65 INTEGER :: ilu,iret, il, iluout
66 REAL(KIND=JPRB) :: zhook_handle
68 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_TXT_N',0,zhook_handle)
82 hmask, il, iluout, ilu, nmask)
85 IF (lhook) CALL dr_hook(
'INIT_IO_SURF_TXT_N',1,zhook_handle)
subroutine get_type_dim_n(DTCO, U, HTYPE, KDIM)
subroutine get_dim_full_n(U, KDIM_FULL)
subroutine init_io_surf_txt_n(DTCO, U, HMASK, HACTION)
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)