subroutine CAL_COPYDATE(
call CAL_COPYDATE( modelrundate, modelstartdate, mythid )
call CAL_COPYDATE(
call CAL_COPYDATE( modelstartdate, targetdate, mythid )