equal = cal_CompDates(modelstartdate,mydate,mythid)
if ( equal ) then
equal = cal_CompDates(modelenddate,mydate,mythid)
logical equal
equal = .true.