--- MITgcm/pkg/thsice/thsice_write_pickup.F	2004/04/07 23:40:34	1.1
+++ MITgcm/pkg/thsice/thsice_write_pickup.F	2005/06/24 04:36:54	1.2
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/thsice/thsice_write_pickup.F,v 1.1 2004/04/07 23:40:34 jmc Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/thsice/thsice_write_pickup.F,v 1.2 2005/06/24 04:36:54 edhill Exp $
 C $Name:  $
 
 #include "THSICE_OPTIONS.h"
@@ -44,12 +44,13 @@
 C     == Local variables ==      
       CHARACTER*(MAX_LEN_FNAM) fn
 
-       IF ( permCheckPoint ) THEN
-         WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
-       ELSE
-         WRITE(fn,'(A,A)') 'pickup_ic.',checkPtSuff(nCheckLev)
-       ENDIF
+      IF ( permCheckPoint ) THEN
+        WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
+      ELSE
+        WRITE(fn,'(A,A)') 'pickup_ic.',checkPtSuff(nCheckLev)
+      ENDIF
 
+      IF ( thSIce_pickup_write_mdsio ) THEN
         CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask,   1,
      &                                               myIter,myThid)
         CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceHeight, 2,
@@ -63,12 +64,36 @@
         CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2,  8, myIter,myThid)
         CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,snowAge,9, myIter,myThid)
 
-       IF ( stepFwd_oceMxL ) THEN
+        IF ( stepFwd_oceMxL ) THEN
         CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,tOceMxL,10,myIter,myThid)
         CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,sOceMxL,11,myIter,myThid)
-       ENDIF
-C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
+        ENDIF
+      ENDIF
+
+#ifdef ALLOW_MNC
+      IF ( thSIce_pickup_write_mnc ) THEN
+        CALL MNC_CW_SET_UDIM(fn, -1, myThid)
+        CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)
+        CALL MNC_CW_SET_UDIM(fn, 0, myThid)
+C       CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)
+        CALL MNC_CW_RL_W('D',fn,0,0,'iceMask',   iceMask,   myThid)
+        CALL MNC_CW_RL_W('D',fn,0,0,'iceHeight', iceHeight, myThid)
+        CALL MNC_CW_RL_W('D',fn,0,0,'snowHeight',snowHeight,myThid)
+        CALL MNC_CW_RL_W('D',fn,0,0,'Tsrf',      Tsrf,      myThid)
+        CALL MNC_CW_RL_W('D',fn,0,0,'Tice1',     Tice1,     myThid)
+        CALL MNC_CW_RL_W('D',fn,0,0,'Tice2',     Tice1,     myThid)
+        CALL MNC_CW_RL_W('D',fn,0,0,'Qice1',     Qice1,     myThid)
+        CALL MNC_CW_RL_W('D',fn,0,0,'Qice2',     Qice2,     myThid)
+        CALL MNC_CW_RL_W('D',fn,0,0,'snowAge',   snowAge,   myThid)
+        IF ( stepFwd_oceMxL ) THEN
+          CALL MNC_CW_RL_W('D',fn,0,0,'tOceMxL',tOceMxL,myThid)
+          CALL MNC_CW_RL_W('D',fn,0,0,'sOceMxL',sOceMxL,myThid)
+        ENDIF
+      ENDIF
+#endif  /* ALLOW_MNC */
 
 #endif  /* ALLOW_THSICE */
       RETURN
       END
+
+C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|