44 USE modd_io_surf_fa,ONLY:nunit_fa,nluout,nfull,nmask,cmask,iverbfa,cdnomc
47 USE modi_io_buff_clean
49 USE yomhook
,ONLY : lhook, dr_hook
50 USE parkind1
,ONLY : jprb
52 USE modi_get_surf_mask_n
54 USE modi_get_type_dim_n
65 CHARACTER(LEN=28),
INTENT(IN) :: hfile
66 CHARACTER(LEN=6),
INTENT(IN) :: hfiletype
67 CHARACTER(LEN=6),
INTENT(IN) :: hmask
72 CHARACTER(LEN=28) :: yfile
73 CHARACTER(LEN=16),
PARAMETER :: ycadre=
'external'
76 INTEGER,
DIMENSION(:),
POINTER :: imask
78 REAL,
DIMENSION(:),
ALLOCATABLE :: zfull
79 REAL(KIND=JPRB) :: zhook_handle
82 IF (lhook) CALL dr_hook(
'OPEN_AUX_IO_SURF_FA',0,zhook_handle)
88 yfile=hfile(1:len_trim(hfile))//
'.fa'
90 CALL faitou(iret,nunit_fa,.true.,yfile,
'OLD',.true.,.false.,iverbfa,0,inb,ycadre)
91 WRITE(nluout,*)
'HFILETYPE ',hfiletype,
'READ EXTERNAL',nunit_fa,yfile
95 hfiletype,
'DIM_FULL',ilu,iret)
100 ALLOCATE(nmask(nfull))
101 ALLOCATE(zfull(nfull))
108 IF (lhook) CALL dr_hook(
'OPEN_AUX_IO_SURF_FA',1,zhook_handle)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine get_1d_mask(KSIZE, KFRAC, PFRAC, KMASK)
subroutine open_aux_io_surf_fa(HFILE, HFILETYPE, HMASK)