Speed up RunModel_Lag when it is used alone

See: in-wop/airGRiwrm#164 (closed)

The function calls CreateIniStates when it is called alone outside a GR model. This call is very expensive and can easily be replaced by OutputsModel$StateEnd <- list(SD = SD).