13 xvar_to_filein, xid_varin
15 USE yomhook
,ONLY : lhook, dr_hook
16 USE parkind1
,ONLY : jprb
21 INTEGER,
DIMENSION(:),
ALLOCATABLE :: itemp
23 INTEGER :: jfile,ifile_id
25 REAL(KIND=JPRB) :: zhook_handle
29 IF (lhook) CALL dr_hook(
'OPEN_FILEIN_OL',0,zhook_handle)
35 ALLOCATE(itemp(
SIZE(xnetcdf_filename_in)))
37 DO jfile=1,
SIZE(xnetcdf_filename_in)
38 INQUIRE(file=xnetcdf_filename_in(jfile),exist=llexist)
40 jret=nf_open(xnetcdf_filename_in(jfile),nf_nowrite,ifile_id)
41 IF (jret.EQ.nf_noerr)
THEN
51 ALLOCATE(xvar_to_filein(0))
52 ALLOCATE(xid_varin(0))
57 IF (lhook) CALL dr_hook(
'OPEN_FILEIN_OL',1,zhook_handle)
subroutine open_filein_ol