The Influence of Seasonal Ice

As an alternative numerical experiment, I suppress all ice formation by modifying subroutine SWALBEDO. The modifications are to set the fraction of the ocean covered by sea ice to zero, regardless of temperature, and to set an unattainably low temperature limit in the IF statement that branches to temperature-dependent albedo on land. The program is listed as DAV11. 

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

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

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

DIM hcap(nlat), cxlat(nlat), latmp(nlat), aveza(nlat) 

---