wght_mod: Function to weight two models
In IceCast: Apply Statistical Post-Processing to Improve Sea Ice Predictions

Function to weight two models

1	wght_mod(w, mod1, mod2)

`w`	weight on model 1
`mod1`	array with estimated sea ice probability from model 1. Dimensions are nuumber of training years x lon x lat.
`mod2`	array with estimated sea ice probability from model 1. Dimensions are nuumber of training years x lon x lat.

## Not run: 
weight <- fit_weights(mod1 = clim_9_2005_2007, mod2 = ppe_9_2005_2007,
obs = obs_9_2005_2007, prop_area = prop_area)
wght_mod(w = weight, mod1 = clim_9_2008, mod2 = ppe_9_2008)

## End(Not run)