Add parameter for extra standard deviation

[kellijohnson-NOAA]

Include a parameter for the estimated extra standard deviation on the new survey as the default or HARD-CODED behavior. Code should be inserted here

ss3roms/R/add_fleet.R

Lines 170 to 178 in 47bad77

	ctllist[["Nfleets"]] <- datlist[["Nfleets"]]
	ctllist[["fleetnames"]] <- datlist[["fleetnames"]]
	ctllist[["Q_options"]][datlist[["Nsurveys"]], ] <-
	ctllist[["Q_options"]][datlist[["Nsurveys"]] - 1, ]
	ctllist[["Q_options"]][datlist[["Nsurveys"]], "fleet"] <- datlist[["Nfleets"]]
	row.names(ctllist[["Q_options"]]) <-
	datlist[["fleetnames"]][ctllist[["Q_options"]][["fleet"]]]
	ctllist[["Q_parms"]][(datlist[["Nsurveys"]] * 2) - 1:0, ] <-
	ctllist[["Q_parms"]][NROW(ctllist[["Q_parms"]]) - 1:0, ]