COMMON/OCN_ZONALMN/ ctocn, ctice, cfice, csAlb, csAlbNIR,
_RL cfice(jm0) ! zonal mean ice fraction
& cfice(j_atm)= cfice(j_atm)/ocnArea(j_atm)
IF (cfice(j_atm).GT.1. _d -32) THEN
ctice(j_atm)= ctice(j_atm)/ocnArea(j_atm)/cfice(j_atm)
csAlb(j_atm)= csAlb(j_atm)/ocnArea(j_atm)/cfice(j_atm)
csAlbNIR(j_atm)= csAlbNIR(j_atm)/ocnArea(j_atm)/cfice(j_atm)
IF ((1. _d 0-cfice(j_atm).GT.1. _d -32).AND.doAll)
& /(1. _d 0-cfice(j_atm))
mmfice(j_atm)= cfice(j_atm)
mmfice(1)= cfice(2)
mmfice(jm0)= cfice(jm0-1)
cfice(j_atm)=0. _d 0
cfice(atm_oc_ind(j))=cfice(atm_oc_ind(j)) +
cfice(atm_oc_ind(j)+1)= cfice(atm_oc_ind(j)+1) +