--- MITgcm/pkg/ggl90/ggl90_init_fixed.F	2008/10/07 19:32:07	1.1
+++ MITgcm/pkg/ggl90/ggl90_init_fixed.F	2009/01/30 02:23:56	1.2
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ggl90/ggl90_init_fixed.F,v 1.1 2008/10/07 19:32:07 dfer Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ggl90/ggl90_init_fixed.F,v 1.2 2009/01/30 02:23:56 dfer Exp $
 C $Name:  $
 
 #include "GGL90_OPTIONS.h"
@@ -27,6 +27,8 @@
 
 C     !LOCAL VARIABLES:
 C     === Local variables ===
+      INTEGER bi,bj
+      INTEGER  I, J
 
 C#ifdef ALLOW_MNC
 C      IF (useMNC) THEN
@@ -40,5 +42,21 @@
       ENDIF
 #endif
 
+#ifdef ALLOW_GGL90_SMOOTH
+      DO bj=myByLo(myThid),myByHi(myThid)
+       DO bi=myBxLo(myThid),myBxHi(myThid)
+        DO j=1-Oly,sNy+Oly
+         DO i=1-Olx,sNx+Olx
+          mskCor(i,j,bi,bj) = 1. _d 0
+         ENDDO
+        ENDDO
+        IF ( useCubedSphereExchange ) THEN
+          CALL FILL_CS_CORNER_TR_RL( 0, .FALSE.,
+     &                               mskCor, bi,bj, myThid )
+        ENDIF
+       ENDDO
+      ENDDO
+#endif
+
       RETURN
       END