/[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.1 by jmc, Sun Nov 25 21:39:32 2007 UTC revision 1.2 by dimitri, Wed Dec 17 03:33:30 2008 UTC
# Line 107  C---  continue to write 2-D fields: Line 107  C---  continue to write 2-D fields:
107          CALL WRITE_REC_3D_RL( fn, fp,  1, HSALT , nj, myIter, myThid )          CALL WRITE_REC_3D_RL( fn, fp,  1, HSALT , nj, myIter, myThid )
108          IF (j.LE.listDim) wrFldList(j) = 'siHSALT '          IF (j.LE.listDim) wrFldList(j) = 'siHSALT '
109  #endif  #endif
110    #ifdef SEAICE_AGE
111            j = j + 1
112            nj = nj-1
113            CALL WRITE_REC_3D_RL( fn, fp,  1, ICEAGE, nj, myIter, myThid )
114            IF (j.LE.listDim) wrFldList(j) = 'siAGE   '
115    #endif
116         ENDIF         ENDIF
117    
118  C--    write Sea-Ice Dynamics variables (all 2-D fields):  C--    write Sea-Ice Dynamics variables (all 2-D fields):
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22