.. _example1:

Example 1. Convert files into netCDF format
===========================================

::

 #! /usr/bin/env convsh
  
 #  Convsh script conv2nc_1to1.tcl
 #
 #  Convert each file, into a corresponding netCDF file.
 #  File names are taken from the command arguments.
 #  For example to convert all PP files in the current directory 
 #  into netCDF files use the following command:
 #
 #      ./conv2nc_1to1.tcl *.pp
 
 #  Write out netCDF file
 set outformat netcdf
 
 #  Automatically work out input file type
 set filetype 0
 
 #  Convert all fields in input files to netCDF
 set fieldlist -1
 
 #  Read in each of the input files and write output file
 
 foreach infile $argv {
 
 #  Replace input file extension with .nc to get output filename
    set outfile [file tail [file rootname $infile].nc]
 
 #  Read input file
    readfile $filetype $infile 
 
 #  Write out all input fields to a netCDF file
    writefile $outformat $outfile $fieldlist  
 
 #  Remove input file information from Convsh's memory
    clearall
 }