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 |