--- MITgcm/pkg/thsice/thsice_write_pickup.F	2005/06/24 04:36:54	1.2
+++ MITgcm/pkg/thsice/thsice_write_pickup.F	2005/09/17 03:17:06	1.3
@@ -1,4 +1,4 @@
-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 $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/thsice/thsice_write_pickup.F,v 1.3 2005/09/17 03:17:06 edhill Exp $
 C $Name:  $
 
 #include "THSICE_OPTIONS.h"
@@ -72,9 +72,21 @@
 
 #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)
+        IF ( permCheckPoint ) THEN
+          WRITE(fn,'(A)') 'pickup_ic'
+        ELSE
+          WRITE(fn,'(A,A)') 'pickup_ic.',checkPtSuff(nCheckLev)
+        ENDIF
+C       First ***define*** the file group name
         CALL MNC_CW_SET_UDIM(fn, 0, myThid)
+        IF ( permCheckPoint ) THEN
+          CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid)
+        ELSE
+          CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid)
+        ENDIF
+C       Then set the actual unlimited dimension
+        CALL MNC_CW_SET_UDIM(fn, 1, myThid)
+        CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, 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)