system: cd

This works (thanks for the suggestions) :

begin

numb=(/794880, 819360, 826560, 833760, 840960, 848160, 855360,
862560, 869760, 766080, \
       802080, 820800, 828000, 835200, 842400, 849600, 856800,
864000, 871200, 773280, \
       809280, 822240, 829440, 836640, 843840, 851040, 858240,
865440, 872640, 780480, \
       816480, 823680, 830880, 838080, 845280, 852480, 859680,
866880, 874080, 760320, \
       787680, 817920, 825120, 832320, 839520, 846720, 853920,
861120, 868320, 875520 /)
do iy=0,1
   filename="rs."+numb(iy)+".tar"
   system( "tar -xvf "+filename )
   system( "mv coupl/restart.colpj.0"+numb(iy)+" coupl/
restart.colpj.old" )
   system( "f77 edit_restart_borens.f" )
   system( "a.out" )
   system( "mv coupl/restart.colpj.new coupl/restart.colpj.0"+numb(iy) )
   system( "rm coupl/restart.colpj.old" )
end do

end

_______________________________________________
ncl-talk mailing list
ncl-talk_at_ucar.edu
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
Received on Tue Apr 18 2006 - 11:18:46 MDT