* GT_LIB.PARM
*
* revision 0.00 - 05/07/87 - by Mark Verschell for PMEL/TMAP
* revision 1.00 - 05/26/88 - added numerical constants
* revision 1.10 - 11/29/88 - mpsunkn,mpsnorm changed values to munknown,mnormal
* revision 1.11 - 12/07/89 - unspecified_int4 changed to -111 from -9999
* revision 1.12 - 2/17/99 - radius changed from 6370.E5 to 6366.707E5
* 
* V50 *kob* 8/99 -   Changed FOR agreement with GDFL/MOM3. The previous 
*                    (BETA) definition, based on conversion between degrees 
*		     and nautical miles, was not accurate since conversion 
*                    from degrees to nautical mile is not well definied 
*                    due to the non-spherical earth
* V600 *acm* 5/05    Attribute control: Add atom_not_found, must match the value 
*                    in netcdf.h and ferret.parm.
* V602 *acm* 11/06 - Change unspecified_int4 to -999. Fixes bug 1463 where
*                    where an index value of -111 was confused with this flag
* V685 *acm* 3/13 - add climatological axes to the pre-defined axes.
* V698  3/16 *acm* Removed Philander-Seigel code including diagnostic variables, 
* pre-defined axes and grids.
* V698  3/16 *acm* Define monthly climatology for Julian axis.


* Function return codes
	INTEGER*4	str_match, atom_not_found
	PARAMETER	(str_match = 0, atom_not_found = 0)

* numerical constants
        REAL            deg2rad, radius, deg2km, deg2m, m_radius
        PARAMETER     ( deg2rad = 3.141592 / 180,
     .                  radius = 6371.E5,               ! cm  8/99 *kob*
     .                  m_radius = radius / 100.,       ! meters
     .                  deg2km = deg2rad * radius * 1.E-5,
     .                  deg2m  = deg2km * 1000.  )

* names of dimensions
	INTEGER		  x_dim,   y_dim,   z_dim,   t_dim,   e_dim,   f_dim
	PARAMETER	( x_dim=1, y_dim=2, z_dim=3, t_dim=4, e_dim=5, f_dim=6 )

* Unspecified values
	REAL*8		  unspecified_val8
	INTEGER		  unspecified_int4
	PARAMETER	( unspecified_val8	= -2E34)
	PARAMETER	( unspecified_int4	= -999)

* pre-defined grids:.....
* define "lines" (1 dimensional components of which grids are assembled)
* parameter definitions are pointers to the lines
*			("m" indicates parameter)

	INTEGER		mpsunkn, mpsnorm, clmirr, clmreg, clseas, clmgrg,
     .			clmnol, clm360, clmall, clmjul
	PARAMETER (	mpsunkn	= -1,		! must match FERRET munknown
     .			mpsnorm	=  0,		! must match FERRET mnormal
     .			clmirr	=  1,	! month irregular
     .			clmreg	=  2,	! month regular
     .			clseas	=  3,	! seasonal
     .			clmgrg	=  4,	! month Gregorian
     .			clmnol	=  5,	! month noleap
     .			clm360	=  6,	! month 360-day
     .			clmall	=  7,	! month all-leap
     .			clmjul	=  8)	! month Julian

* codes for special grid features...
* flag values stored in parameters
	INTEGER		box_lo_lim, box_middle, box_hi_lim
	PARAMETER     ( box_lo_lim =  1 )
	PARAMETER     ( box_middle =  2 )
	PARAMETER     ( box_hi_lim =  3 )

* codes for special time/date formats
	INTEGER pdate_vax, pdate_numslashnum
	PARAMETER (pdate_vax = 1,
     .		   pdate_numslashnum = 2 )

* OS dependent stuff
	CHARACTER EnvSeparator
	CHARACTER PathSeparator
#ifdef __CYGWIN__
	PARAMETER (EnvSeparator=';', PathSeparator='\')
#else
	PARAMETER (EnvSeparator=' ', PathSeparator='/')
#endif

