* +-======-+ 
*  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 cmplt (args)

field  = subwrd(args,1)
file1  = subwrd(args,2)
file2  = subwrd(args,3)
output = subwrd(args,4)

season = 'NULL'

if( file1  = '' ) ;  file1 = 1      ; endif
if( file2  = '' ) ;  file2 = 2      ; endif
if( output = '' ) ; output = 'NULL' ; endif

'run getinfo date'
             date  = result
'run getinfo label  'file1
             desc1 = result
'run getinfo label  'file2
             desc2 = result

'getinfo time'
         time = result

'run getinfo file'
             file = result

'set dfile 'file2
'set t  'time
'getinfo date'
         date2 = result
'set dfile 'file1
'set t  'time
'getinfo date'
         date1 = result
'set dfile 'file
'set t 'time

'define qmod = 'field'.'file1'(t='time')'
'define qobs = 'field'.'file2'(t='time')'

'run makplot 'field' test1 NULL 'season' 'output' 'file1' 'desc1' 'file2' 'field' 'desc2' 'date1' 'date1' 'date2' 'date2' Actual NULL NULL'