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) |