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

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

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

revision 1.3 by edhill, Sat Sep 17 03:17:06 2005 UTC revision 1.4 by mlosch, Thu Jan 4 15:41:31 2007 UTC
# Line 60  C     == Local variables == Line 60  C     == Local variables ==
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)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22