--- MITgcm_contrib/submesoscale/code/gmredi_check.F	2008/05/30 21:51:23	1.1
+++ MITgcm_contrib/submesoscale/code/gmredi_check.F	2008/05/30 22:13:42	1.2
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/submesoscale/code/gmredi_check.F,v 1.1 2008/05/30 21:51:23 dimitri Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/submesoscale/code/gmredi_check.F,v 1.2 2008/05/30 22:13:42 dimitri Exp $
 C $Name:  $
 
 #include "GMREDI_OPTIONS.h"
@@ -131,6 +131,22 @@
       ENDIF
 #endif
 
+#ifdef GM_SUBMESO
+      IF (GM_SM_Ce .gt. 0 _d 0) THEN
+C     Make sure we are not trying to use some arrays that are unavailable
+       IF ((.not.GM_ExtraDiag ).and.(.not.GM_AdvForm)) THEN
+        WRITE(msgBuf,'(A)')
+     &   ' GMREDI: GM_SUBMESO needs GM_EXTRA_DIAGONAL or GM_BOLUS_ADVEC'
+        CALL PRINT_ERROR( msgBuf, myThid )
+        WRITE(msgBuf,'(A)')
+     &   ' GMREDI_CHECK: add #define GM_EXTRA_DIAGONAL'
+        CALL PRINT_ERROR( msgBuf, myThid )
+        STOP 'ABNORMAL END: S/R GMREDI_CHECK'
+       ENDIF
+      ENDIF
+#endif
+
+
 #ifdef ALLOW_PTRACERS
       IF ( GM_AdvForm .AND. .NOT.GM_AdvSeparate
      &       .AND. usePTRACERS ) THEN