costIceEnd1 = modelEndDate(1)
costIceEnd2 = modelEndDate(2)
& modelEndDate,
INTEGER modelEndDate(4)
CALL CAL_ADDTIME( modelStartDate, timediff, modelEndDate,
CALL WRITE_0D_I( modelEndDate(1), INDEX_NONE,
CALL WRITE_0D_I( modelEndDate(2), INDEX_NONE,
call CAL_COPYDATE(modelEndDate,