anchor.diff:  enddo
   enddo
   
  -write(dayfile,'(a,a,a)') basedir,'/PROCESSING/overpass_corr/TRAD1_',tile_num
  -open(10,file=dayfile,form='unformatted',access='direct',recl=dx*dy*4)
  +!write(dayfile,'(a,a,a)') basedir,'/PROCESSING/overpass_corr/TRAD1_',tile_num
  +open(10,file=outdayfile,form='unformatted',access='direct',recl=dx*dy*4)
   write(10,rec=1) day_corr
   close(10)
   
  
positive.code: !character (len=*), allocatable :: basedir
  character(len=4) :: tile_num
  integer, parameter :: dx=3750, dy=3750
  character(len=255) :: dayfile, nightfile, dtimefile, ntimefile
  character(len=255) :: avgfile, dztimefile, nztimefile
  character(len=255) :: arg4, basedir
  character(len=4) :: arg1, arg3
  character(len=3) :: arg2
  
negative.code: call getarg(2,arg2)
  call getarg(3,arg3)
  call getarg(4,tile_num)
  call getarg(5,dztimefile)
  call getarg(6,dayfile)
  call getarg(7,avgfile)
  call getarg(8,outdayfile)
  read(arg1,'(i4)') iyear
  read(arg2,'(i3)') iday
  read(arg3,'(i4)') time
  !basedir=trim(arg4)
  
  write(6,*) iyear, iday, time, tile_num, basedir
  yyyyddd=iyear*1000+iday
  