Parent Directory
|
Revision Log
|
Revision Graph
|
Patch
--- MITgcm/pkg/seaice/groatb.F 2002/12/28 10:11:11 1.4
+++ MITgcm/pkg/seaice/groatb.F 2003/02/18 05:33:55 1.5
@@ -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 SEAICE_DEBUG
+#endif
ENDDO
ENDDO
@@ -87,7 +87,7 @@
ENDDO
ENDDO
-#endif ALLOW_SEAICE
+#endif /* ALLOW_SEAICE */
RETURN
END
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |