* +-======-+ 
*  Copyright (c) 2003-2018 United States Government as represented by 
*  the Admistrator of the National Aeronautics and Space Administration.  
*  All Rights Reserved.
*  
*  THIS OPEN  SOURCE  AGREEMENT  ("AGREEMENT") DEFINES  THE  RIGHTS  OF USE,
*  REPRODUCTION,  DISTRIBUTION,  MODIFICATION AND REDISTRIBUTION OF CERTAIN 
*  COMPUTER SOFTWARE ORIGINALLY RELEASED BY THE UNITED STATES GOVERNMENT AS 
*  REPRESENTED BY THE GOVERNMENT AGENCY LISTED BELOW ("GOVERNMENT AGENCY").  
*  THE UNITED STATES GOVERNMENT, AS REPRESENTED BY GOVERNMENT AGENCY, IS AN 
*  INTENDED  THIRD-PARTY  BENEFICIARY  OF  ALL  SUBSEQUENT DISTRIBUTIONS OR 
*  REDISTRIBUTIONS  OF THE  SUBJECT  SOFTWARE.  ANYONE WHO USES, REPRODUCES, 
*  DISTRIBUTES, MODIFIES  OR REDISTRIBUTES THE SUBJECT SOFTWARE, AS DEFINED 
*  HEREIN, OR ANY PART THEREOF,  IS,  BY THAT ACTION, ACCEPTING IN FULL THE 
*  RESPONSIBILITIES AND OBLIGATIONS CONTAINED IN THIS AGREEMENT.
*  
*  Government Agency: National Aeronautics and Space Administration
*  Government Agency Original Software Designation: GSC-15354-1
*  Government Agency Original Software Title:  GEOS-5 GCM Modeling Software
*  User Registration Requested.  Please Visit http://opensource.gsfc.nasa.gov
*  Government Agency Point of Contact for Original Software:  
*  			Dale Hithon, SRA Assistant, (301) 286-2691
*  
* +-======-+ 
  function getdesc (args)
  name = subwrd(args,1)
  file = subwrd(args,2)

'lowercase 'name
            name = result

**************************************************
**************************************************
****                                          ****
****    This routine is used to "get" the     ****
****    description for a particular variable ****
****                                          ****
**************************************************
**************************************************

  'query file 'file
  numvar = sublin(result,6)
  numvar = subwrd(numvar,5)
  n = 1
  while ( n<=numvar )
  loc = n+6
     varline = sublin(result ,loc)
     varname = subwrd(varline,1)
     if( varname = name )
         vardesc = subwrd(varline,4)
             loc = 5
            next = subwrd(varline,loc)
          while( next != '' )
               vardesc = vardesc' 'next
                   loc = loc + 1
                  next = subwrd(varline,loc)
          endwhile
         return vardesc
     else
         n = n + 1
     endif
   endwhile
   return qname'_not_found'