47 USE modi_io_buff_clean
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
60 CHARACTER(LEN=28),
INTENT(IN) :: hfile
61 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
62 CHARACTER(LEN=6),
INTENT(IN) :: hmask
67 INTEGER,
DIMENSION(:),
POINTER :: imask
69 REAL,
DIMENSION(:),
ALLOCATABLE :: zfull
70 REAL(KIND=JPRB) :: zhook_handle
74 IF (lhook) CALL dr_hook(
'OPEN_AUX_IO_SURF_ASC',0,zhook_handle)
80 OPEN(unit=nunit,file=trim(hfile)//
'.txt',form=
'FORMATTED')
84 'ASCII ',
'DIM_FULL',nfull,iret)
85 ALLOCATE(nmask(nfull))
86 ALLOCATE(zfull(nfull))
93 IF (lhook) CALL dr_hook(
'OPEN_AUX_IO_SURF_ASC',1,zhook_handle)
subroutine open_aux_io_surf_asc(HFILE, HFILETYPE, HMASK)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_1d_mask(KSIZE, KFRAC, PFRAC, KMASK)