Subversion Repositories lagranto.ecmwf

Rev

Rev 19 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 19 Rev 33
Line 426... Line 426...
426 
set wmin  = `${LAGRANTO}/goodies/getmima $file OMEGA P850 | awk '{print $1}'`
 426 
set wmin  = `${LAGRANTO}/goodies/getmima $file OMEGA P850 | awk '{print $1}'`
427 
set wmax  = `${LAGRANTO}/goodies/getmima $file OMEGA P850 | awk '{print $2}'`
 427 
set wmax  = `${LAGRANTO}/goodies/getmima $file OMEGA P850 | awk '{print $2}'`
428 
set wmin  = `echo $wmin | sed -e 's/\.//'`
 428 
set wmin  = `echo $wmin | sed -e 's/\.//'`
429 
set wmax  = `echo $wmax | sed -e 's/\.//'`
 429 
set wmax  = `echo $wmax | sed -e 's/\.//'`
430 
set wdiff = `echo $wmax - $wmin | bc`
 430 
set wdiff = `echo $wmax - $wmin | bc`
431 
 
 - 
 
432 
if ( $wdiff > 400 ) then
 431 
if ( $wdiff > 400 ) then
433 
    set wfactor=1.
 432 
    set wfactor=1.
434 
else
 433 
endif
- 
 
 434 
if ( $wdiff < 400 ) then
435 
    set wfactor=100.
 435 
    set wfactor=100.
436 
endif
 436 
endif
437 
 
 437 
 
438 
# Write status information
 438 
# Write status information
439 
echo "Vertical scaling factor (wfactor)  : ${wfactor}"
 439 
echo "Vertical scaling factor (wfactor)  : ${wfactor}"