The Influence of Permanent Ice

I modify the program to simulate the effect of permanent ice at high latitudes by setting the albedo for the two highest latitudes in each hemisphere equal to 0.7, independent of season, temperature, or solar zenith angle. These values are set at the end of subroutine SWALBEDO. The modified program is listed as DAV10. 

DIM sleq(nrow, ncol), unk(nrow), excoeff(nrow, ncol), ovol(nrow) 

DIM y(nrow), dely(nrow), yp(nrow), incind(nrow) 

DIM land(nlat), oceancl(nlat), landcl(nlat), zatemp(nlat) 

DIM lwflux(nlat), xlat(nlat), albedo(nlat), insol(nlat) 

---