#! /usr/bin/perl -w

# Simple loop to process a series of files. Modify as approp.

for($i=1;$i<=12; $i++)
{
  $j=sprintf('%03d',$i);
  $j4=sprintf('%04d',$i);
  $file="sflux_air_1.".$j.".nc"; 
  $file4="sflux_air_1.".$j4.".nc"; 
  print "doing $file\n";
  system "ln -sf ../sflux_tmp/$file $file4";

  $file="sflux_rad_1.".$j.".nc"; 
  $file4="sflux_rad_1.".$j4.".nc"; 
  print "doing $file\n";
  system "ln -sf ../sflux_tmp/$file $file4";
}