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' |
WRITE(fn,'(A)') 'pickup_ic' |
|
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, myThid) |
|
63 |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid) |
64 |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
CALL MNC_CW_SET_UDIM(fn, 1, myThid) |
65 |
|
CALL MNC_CW_SET_CITER(fn, 3, 3, myIter, 0, 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) |
67 |
CALL MNC_CW_RL_R('D',fn,0,0,'iceHeight', iceHeight, myThid) |
CALL MNC_CW_RL_R('D',fn,0,0,'iceHeight', iceHeight, myThid) |
68 |
CALL MNC_CW_RL_R('D',fn,0,0,'snowHeight',snowHeight,myThid) |
CALL MNC_CW_RL_R('D',fn,0,0,'snowHeight',snowHeight,myThid) |