Hi i did finally found the solution to my problem:
program test_ec
implicit none
integer :: mi,di,iiii,fff
character(len=1024) :: filename
character(len=1024) :: format_string
logical exist
mi=1
CALL chdir('/media/Hello/ncfiles/GFS' )
!do di=1,10
do iiii=0,18,6
do...