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	afe	1.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