/[MITgcm]/MITgcm/pkg/seaice/seaice_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_write_pickup.F

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

revision 1.21 by mlosch, Mon Apr 28 15:20:34 2014 UTC revision 1.22 by jmc, Tue Apr 29 01:53:29 2014 UTC
# Line 108  C-    switch to 2-D fields: Line 108  C-    switch to 2-D fields:
108  c         nj = nj*MULTDIM  c         nj = nj*MULTDIM
109           nj = nj-MULTDIM+1           nj = nj-MULTDIM+1
110          ELSE          ELSE
111  CML         CALL WRITE_REC_3D_RL( fn, fp,  1, TICE  , nj, myIter, myThid )           CALL WRITE_REC_LEV_RL( fn, fp, MULTDIM, 1, 1, TICES,
112           CALL WRITE_REC_3D_RL( fn, fp,  1, TICES , nj, myIter, myThid )       I                          nj, myIter, myThid )
113           IF (j.LE.listDim) wrFldList(j) = 'siTICE  '           IF (j.LE.listDim) wrFldList(j) = 'siTICE  '
114          ENDIF          ENDIF
115    
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22