fortran奇奇怪怪的就是找不着文件，文件路径很简单没错

云一林

请问有谁知道这个fortran程序哪里出问题了么？零错误零警告运行出来找不到文件

以下是删除计算步骤的程序

!PROCESS

integer      :: I,J,K,L,ip

INTEGER      :: IREC

real         :: dx,dy,dp,ss,sx,si,sj,l1

CHARACTER*42 :: FILEPATH='e:\ncep\'

open(11,file=FILEPATH//'press.mon.mean.dat',form='unformatted',access='direct',action='read',recl=nx*73)

OPEN(13,FILE=FILEPATH//'uwnd.mon.mean.dat',FORM='UNFORMATTED',ACCESS='DIRECT',action='read',RECL=NX*73)

OPEN(14,FILE=FILEPATH//'vwnd.mon.mean.dat',FORM='UNFORMATTED',ACCESS='DIRECT',action='read',RECL=NX*73)

OPEN(15,FILE=FILEPATH//'air.mon.mean.dat',FORM='UNFORMATTED',ACCESS='DIRECT',action='read',RECL=NX*73)

OPEN(16,FILE=FILEPATH//'shum.mon.mean.dat',FORM='UNFORMATTED',ACCESS='DIRECT',action='read',RECL=NX*73)

OPEN(17,FILE=FILEPATH//'omega.mon.mean.dat',FORM='UNFORMATTED',ACCESS='DIRECT',action='read',RECL=NX*73)

!write data into:

OPEN(20,FILE=FILEPATH//'Q\Q1TNWNS.grd',FORM='binary')

OPEN(21,FILE=FILEPATH//'Q\q1vnwNS.grd',FORM='binary')

OPEN(22,FILE=FILEPATH//'Q\q1wnwNS.grd',FORM='binary')

OPEN(24,FILE=FILEPATH//'Q\q2tnwNS.grd',FORM='binary')

OPEN(25,FILE=FILEPATH//'Q\q2vnwNS.grd',FORM='binary')

OPEN(26,FILE=FILEPATH//'Q\q2wnwNS.grd',FORM='binary')

OPEN(27,FILE=FILEPATH//'Q\q1&2nwNS.grd',FORM='binary')

OPEN(28,FILE=FILEPATH//'Q\q1l17nwNS.grd',FORM='binary')

OPEN(29,FILE=FILEPATH//'Q\q2l17nwNS.grd',FORM='binary')

步骤省去

!           write(30,rec=irec)(((gtmp(i,j,l),i=1,nx),j=2,ny-1),l=1,nl)

  write(20)(((tg(I,J,L),I=1,NX),J=2,NY-1),l=1,nl)

  write(21)(((ug(I,J,L),I=1,NX),J=2,NY-1),l=1,nl)

  write(22)(((wg(I,J,L),I=1,NX),J=2,NY-1),l=1,nl)

  write(24)(((ft(I,J,L),I=1,NX),J=2,NY-1),l=1,nl)

  write(25)(((fv(I,J,L),I=1,NX),J=2,NY-1),l=1,nl)

  write(26)(((fw(I,J,L),I=1,NX),J=2,NY-1),l=1,nl)

  write(28)(((ht(I,J,L),I=1,NX),J=2,NY-1),l=1,nl)

  write(29)(((ffG(I,J,L),I=1,NX),J=2,NY-1),l=1,nl)

!

  write(27)((q1(I,J),I=1,NX),J=2,NY-1)

  write(27)((q2(I,J),I=1,NX),J=2,NY-1)

  WRITE(6,*)'end TIME=',K

ENDDO LOOPDAY

CLOSE(11);CLOSE(13);CLOSE(14);CLOSE(15);close(16);close(17)

CLOSE(20);CLOSE(21);CLOSE(22);close(24);close(25)

close(26);close(27);close(28);close(29)

stop

End

运行

--------------------Configuration: q - Win32 Debug--------------------

Compiling Fortran...

C:\Users\Administrator\Desktop\lunwen\q.f90

q.obj - 0 error(s), 0 warning(s)

运行结果：

forrtl: severe (29): file not found, unit 11, file e:\ncep\

             press.mon.mean.dat

Image              PC        Routine            Line        Source

q.exe              0041DDA9  Unknown               Unknown  Unknown

Incrementally linked image--PC correlation disabled.

Press any key to continue

显示找不到文件，但是文件是存在的，路径就是e盘下的ncep文件夹，所以路径没错，在ncep文件夹下也创建了空文件夹Q用于生成文件，所以有谁知道是哪里出问题了？？

lqouc

open的时候filepath改成trim(filepath)

一大碗年糕

相对路径试试看？