--- MITgcm/pkg/seaice/groatb.F 2003/02/14 22:30:16 1.1.2.4 +++ MITgcm/pkg/seaice/groatb.F 2003/02/12 06:45:57 1.4.2.1 @@ -62,7 +62,7 @@ TMIX(I,J,bi,bj)=theta(I,J,1,bi,bj)+273.16 _d +00 #ifdef SEAICE_DEBUG TMIX(I,J,bi,bj)=MAX(TMIX(I,J,bi,bj),271.2 _d +00) -#endif +#endif SEAICE_DEBUG ENDDO ENDDO @@ -87,7 +87,7 @@ ENDDO ENDDO -#endif /* ALLOW_SEAICE */ +#endif ALLOW_SEAICE RETURN END