Parent Directory | Revision Log | Revision Graph | 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 59 C == Local variables == | Line 59 C == Local variables == |
59 | ||
60 | #ifdef ALLOW_MNC | #ifdef ALLOW_MNC |
61 | IF ( thSIce_pickup_write_mnc ) THEN | IF ( thSIce_pickup_write_mnc ) THEN |
62 | WRITE(fn,'(A)') 'pickup_ic' | |
63 | CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) | |
64 | CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) | CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
65 | CALL MNC_CW_SET_UDIM(fn, 1, myThid) | CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
66 | CALL MNC_CW_RL_R('D',fn,0,0,'iceMask', iceMask, myThid) | CALL MNC_CW_RL_R('D',fn,0,0,'iceMask', iceMask, myThid) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |