--- MITgcm/pkg/seaice/seaice_do_diags.F	2002/11/12 20:47:27	1.2
+++ MITgcm/pkg/seaice/seaice_do_diags.F	2002/12/05 08:43:03	1.3
@@ -218,7 +218,7 @@
          CALL TIMEAVE_RESET(HEFFtave ,1,bi,bj,myThid)
          CALL TIMEAVE_RESET(AREAtave ,1,bi,bj,myThid)
          DO k=1,Nr
-          SEAICE_TimeAve(k,bi,bj)=0.
+          SEAICE_TimeAve(k,bi,bj)=ZERO
          ENDDO
         ENDDO
        ENDDO