45 cfile_lfi, nunit_lfi, nfull_aux,&
46 nib,nie,niu,njb,nje,nju, nfull_aux, &
52 USE yomhook
,ONLY : lhook, dr_hook
53 USE parkind1
,ONLY : jprb
64 CHARACTER(LEN=28),
INTENT(IN) :: hfile
65 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
66 CHARACTER(LEN=6),
INTENT(IN) :: hmask
71 REAL,
DIMENSION(:),
ALLOCATABLE :: zfull
72 INTEGER :: ilu,iret, il
74 REAL(KIND=JPRB) :: zhook_handle
77 IF (lhook) CALL dr_hook(
'OPEN_AUX_IO_SURF_LFI',0,zhook_handle)
80 CALL fmopen(hfile,
'OLD',cluout_lfi,0,1,1,inb,iret)
85 'LFI ',
'DIM_FULL',ilu,iret)
99 IF (lhook) CALL dr_hook(
'OPEN_AUX_IO_SURF_LFI',1,zhook_handle)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_1d_mask(KSIZE, KFRAC, PFRAC, KMASK)
subroutine open_aux_io_surf_lfi(HFILE, HFILETYPE, HMASK)