; 2010-jan-19	Various tests for new functionality in calendar_decode2,
;		version 1.03.

load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"

load "$LIB_NCL/substring.ncl"
load "$LIB_NCL/find_substring.ncl"
load "calendar_decode2.ncl"	; make sym link to the version to test

begin
   time = new (1, float, "No_FillValue")
   time(0)		= -39615.0
   time@axis		= "T"
   time@calendar	= "360_day"
   time@units		= "days since 1970-01-01 00:00:0"
   time@long_name	= "Time"

   print(time)

   date = ut_calendar(time(0),-1)
   print(date)
   
   date1i = calendar_decode2(time(0),-1)
   print(date1i)
   
   date2i = calendar_decode2(time(0),-2)
   print(date2i)
   
   date3i = calendar_decode2(time(0),-3)
   print(date3i)
    
   date3d = calendar_decode2(time(0),3)
   print(date3d)
  
   date4d = calendar_decode2(time(0),4)
   print(date4d)
   
   date5i = calendar_decode2(time(0),-5)
   print(date5i)
   
   date0f = calendar_decode2(time(0),0)
   print(date0f)
   
   time@calendar	= "proleptic_gregorian"
   date0pg = calendar_decode2(time(0),0)
   print(date0pg)
   
   time@calendar	= "proleptic_gregorian"
   date5pg = calendar_decode2(time(0),-5)
   print(date5pg)
   
   time@calendar	= "gregorian"
   date0g = calendar_decode2(time(0),0)
   print(date0g)
   
   delete (time@calendar)
   date0x = calendar_decode2(time(0),0)
   print(date0x)

; Test proleptic_gregorian before transition year.
   
   time(0)		= -174236.0
   
   time@calendar	= "proleptic_gregorian"
   date0pg2 = calendar_decode2(time(0),0)
   print(date0pg2)
   
   time@calendar	= "proleptic_gregorian"
   date5pg2 = calendar_decode2(time(0),-5)
   print(date5pg2)
   
   time@calendar	= "gregorian"
   date5g2 = calendar_decode2(time(0),-5)
   print(date5g2)
end