osse/EnKF/tempor.F

      program tempor
      implicit none
      character*(100) fn
      integer mem
      mem = 1
      write(fn,'(A,I3.3,A)') 'ls ../ens/',mem,'/assimilate/pickup.in'
      write(*,*) fn
      end
1	program tempor
2	implicit none
3	character*(100) fn
4	integer mem
5	mem = 1
6	write(fn,'(A,I3.3,A)') 'ls ../ens/',mem,'/assimilate/pickup.in'
7	write(,) fn
8	end