/[MITgcm]/MITgcm/pkg/thsice/thsice_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_write_pickup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by edhill, Fri Jun 24 04:36:54 2005 UTC revision 1.3 by edhill, Sat Sep 17 03:17:06 2005 UTC
# Line 72  C     == Local variables == Line 72  C     == Local variables ==
72    
73  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
74        IF ( thSIce_pickup_write_mnc ) THEN        IF ( thSIce_pickup_write_mnc ) THEN
75          CALL MNC_CW_SET_UDIM(fn, -1, myThid)          IF ( permCheckPoint ) THEN
76          CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)            WRITE(fn,'(A)') 'pickup_ic'
77            ELSE
78              WRITE(fn,'(A,A)') 'pickup_ic.',checkPtSuff(nCheckLev)
79            ENDIF
80    C       First ***define*** the file group name
81          CALL MNC_CW_SET_UDIM(fn, 0, myThid)          CALL MNC_CW_SET_UDIM(fn, 0, myThid)
82            IF ( permCheckPoint ) THEN
83              CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid)
84            ELSE
85              CALL MNC_CW_SET_CITER(fn, 2, -1, -1, -1, myThid)
86            ENDIF
87    C       Then set the actual unlimited dimension
88            CALL MNC_CW_SET_UDIM(fn, 1, myThid)
89            CALL MNC_CW_I_W_S('I',fn,0,0,'iter', myIter, myThid)
90  C       CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)  C       CALL MNC_CW_RL_W_S('D',fn,0,0,'T', myTime, myThid)
91          CALL MNC_CW_RL_W('D',fn,0,0,'iceMask',   iceMask,   myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'iceMask',   iceMask,   myThid)
92          CALL MNC_CW_RL_W('D',fn,0,0,'iceHeight', iceHeight, myThid)          CALL MNC_CW_RL_W('D',fn,0,0,'iceHeight', iceHeight, myThid)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22