Hi Ilias,
For the file.list, you could modify the script below, in order to circumvent, writing too mainy files in the "file.list"
*--------------------------------------------------------------------------------*
program lst1
implicit none
integer, parameter :: N = 140
character*80,dimension(N) :: filename
integer :: i,j,k
open(unit = 10,file='file.list',action='write')
write(10,"(I3)") N
do i = 1,N
if(i .lt. 100)then
write(filename(i),'(A,I5.5)') 'turbChannel0.f',i
else
write(filename(i),'(A,I5.5)') 'turbChannel0.f',i
endif
enddo
do i = 1,N
write(10,*) trim(filename(i))
enddo
close(10)
stop
end program lst1
*--------------------------------------------------------------------------------*