c		20-Aug-2015	extend range to end of 2040



	dimension amstart(12,2),yearstart(50),year(50)
	DATA aMSTART/1,32,60,91,121,152,182,213,244,274,305,335,
     *            1,32,61,92,122,153,183,214,245,275,306,336/,
     *  yearstart/0,366,731,1096,1461,1827,2192,2557,2922,3288,3653,
     *                      4018,4383,4749,5114,5479,5844,6210,6575,
     * 			    6940,7305,7671,8036,8401,8766,9132,9497,
     *                      9862,10227,10593,10958,11323,
     *              11688, 12054, 12419, 12784, 13149, 13515, 13880,
     *				14245, 14610, 14976, 15341, 15706, 16071, 16437,
     *				16802, 17167, 17532, 17898/
     *  year/1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,
     *                      2003,2004,2005,2006,2007,2008,2009,2010,
     *                      2011,2012,2013,2014,2015,2016,2017,2018,
     *                      2019,2020,2021,2022,2023,2024,2025,2026,
     *						2027,2028,2029,2030,2031,2032,2033,2034,
     *						2035,2036,2037,2038,2039,2040,2041/
c	check for time limit bounds
	if((stime.ge.0.).and.(stime.lt.(17898*86400))) goto 5
	
	
	
	do 10 i=1,50