COMMON/OCN_ZONALMN/ ctocn, ctice, cfice, csAlb, csAlbNIR,
_RL ctocn(jm0) ! zonal mean ice-free ocean temp
& (sstFromOcn(i,j)-ctocn(ind))*wgt
& ctocn(j_atm)= ctocn(j_atm)/ocnArea(j_atm)
mmsst(j_atm)= ctocn(j_atm)
mmsst(1)= ctocn(2)
mmsst(jm0)= ctocn(jm0-1)
ctocn(j_atm)=0. _d 0
ctocn(atm_oc_ind(j))= ctocn(atm_oc_ind(j)) +
ctocn(atm_oc_ind(j)+1)= ctocn(atm_oc_ind(j)+1) +