#!/usr/bin/perl

$CONVERT='/usr/bin/convert'   ;
$GPVIEW='~/bin/obrplot2.rb'   ;
$XWDTOPNM = '/usr/bin/xwdtopnm' ;
$PNMTOPNG = '/usr/bin/pnmtopng' ;

opendir(DIR, ".");
@NETCDFS_TMP = grep( /^obratmos_\S*.nc$/, readdir( DIR ) );
@NETCDFS     = sort( @NETCDFS_TMP );

foreach $NETCDF ( @NETCDFS ){

#    $OPTION1 = ' --itr 2 --dump true  --max 500.0 --min 0.0'; 
#    $OPTION2 = ' --itr 4 --dump true  --max 1e-3 --min 1.0e-7'; 
    $OPTION1 = '--dump true '; 
#    $OPTION2 = ' --itr 4 --dump true '; 
    $VAR1    = 'temp'; 
    $VAR2    = 'stab'; 

    $oFILE1   = "$NETCDF\_$VAR1.png"; 
    $oFILE2  = "$NETCDF\_$VAR2.png"; 

    print   "$GPVIEW $OPTION1 --var $VAR1 --file $NETCDF"  ;
    system ("$GPVIEW $OPTION1 --var $VAR1 --file $NETCDF") ;

    print   "$XWDTOPNM dcl_001.xwd | $PNMTOPNG > $oFILE1"  ;
    system ("$XWDTOPNM dcl_001.xwd | $PNMTOPNG > $oFILE1") ;

#    print   "$GPVIEW $OPTION2 --var $VAR2 --file $NETCDF"  ;
#    system ("$GPVIEW $OPTION2 --var $VAR2 --file $NETCDF") ;

#    print   "$XWDTOPNM dcl_001.xwd | $PNMTOPNG > $oFILE2"  ;
#    system ("$XWDTOPNM dcl_001.xwd | $PNMTOPNG > $oFILE2") ;
}
