--- MITgcm/model/src/do_statevars_diags.F	2012/03/26 01:47:08	1.19
+++ MITgcm/model/src/do_statevars_diags.F	2012/07/20 12:32:27	1.20
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/do_statevars_diags.F,v 1.19 2012/03/26 01:47:08 dimitri Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/do_statevars_diags.F,v 1.20 2012/07/20 12:32:27 heimbach Exp $
 C $Name:  $
 
 #include "PACKAGES_CONFIG.h"
@@ -114,6 +114,12 @@
        ENDIF
 #endif /* ALLOW_THSICE */
 
+#ifdef ALLOW_STREAMICE
+       IF ( seqFlag.EQ.2 .AND. useStreamIce ) THEN
+        CALL STREAMICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )
+       ENDIF
+#endif /* ALLOW_SEAICE */
+
 #ifdef ALLOW_LAND
        IF ( seqFlag.EQ.0 .AND. useLand ) THEN
         DO bj=myByLo(myThid),myByHi(myThid)