middate(1) = modelstartdate(1)
middate(1) = yday*10000+100+1
middate(2) = 0
middate(3) = modelstartdate(3)
middate(4) = modelstartdate(4)
call CAL_TIMEPASSED( middate, daydate, difftime, mythid )
integer middate(4)
call CAL_ADDTIME( startofmonth, midtime, middate, mythid )
middate1(1) = middate(1)
middate1(2) = middate(2)
middate1(3) = middate(3)
middate1(4) = middate(4)
middate0(1) = middate(1)
middate0(2) = middate(2)
middate0(3) = middate(3)
middate0(4) = middate(4)