44 USE yomhook
,ONLY : lhook, dr_hook
45 USE parkind1
,ONLY : jprb
53 CHARACTER(LEN=*),
INTENT(IN) :: hname
54 INTEGER,
INTENT(OUT):: ifile_id
56 INTEGER,
DIMENSION(:),
ALLOCATABLE :: itemp
57 CHARACTER(LEN=100),
DIMENSION(:),
ALLOCATABLE :: htemp
59 CHARACTER(LEN=100) :: hfile_pas,hname_pas
61 INTEGER :: jfile,jvar,ivar_id
62 REAL(KIND=JPRB) :: zhook_handle
66 IF (lhook) CALL dr_hook(
'OL_FIND_FILE_READ',0,zhook_handle)
67 hname_pas=hname(:len_trim(hname))
72 IF (
SIZE(xid_varin).GT.0)
THEN
73 DO jvar=1,
SIZE(xvar_to_filein)
74 IF (trim(xvar_to_filein(jvar))==hname_pas)
THEN
75 ifile_id=xid_varin(jvar)
82 IF (.NOT.lfind_var)
THEN
87 DO WHILE ((jfile<=
SIZE(xid_in)) .AND. (jret /= nf_noerr))
88 ifile_id=xid_in(jfile)
89 jret=nf_inq_varid(ifile_id,hname_pas,ivar_id)
93 IF (jret == nf_noerr)
THEN
100 itemp(1:xin-1)=xid_varin(:)
101 htemp(1:xin-1)=xvar_to_filein(:)
104 DEALLOCATE(xid_varin)
105 DEALLOCATE(xvar_to_filein)
106 ALLOCATE(xid_varin(xin))
107 ALLOCATE(xvar_to_filein(xin))
113 CALL
abor1_sfx(
"OL_FIND_FILE_READ: "//hname_pas//
" NOT FOUND IN INPUT NC FILES")
117 IF (lhook) CALL dr_hook(
'OL_FIND_FILE_READ',1,zhook_handle)
subroutine ol_find_file_read(HNAME, IFILE_ID)
subroutine abor1_sfx(YTEXT)