--- MITgcm_contrib/submesoscale/code/gmredi_check.F	2008/05/30 22:13:42	1.2
+++ MITgcm_contrib/submesoscale/code/gmredi_check.F	2008/05/30 22:24:25	1.3
@@ -1,4 +1,4 @@
-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 $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/submesoscale/code/gmredi_check.F,v 1.3 2008/05/30 22:24:25 dimitri Exp $
 C $Name:  $
 
 #include "GMREDI_OPTIONS.h"
@@ -60,6 +60,8 @@
 C- print out some kee parameters :
        CALL WRITE_0D_L( GM_AdvForm, INDEX_NONE,
      &  'GM_AdvForm =', '  /* if FALSE => use SkewFlux Form */')
+       CALL WRITE_0D_L( GM_InMomAsStress, INDEX_NONE,
+     &  'GM_InMomAsStress =', '  /* if TRUE => apply as Eddy Stress */')
        CALL WRITE_0D_L( GM_AdvSeparate, INDEX_NONE,
      & 'GM_AdvSeparate =',' /* Calc Bolus & Euler Adv. separately */')
        CALL WRITE_0D_L( GM_ExtraDiag, INDEX_NONE,