/[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.2 by dimitri, Wed Dec 17 03:33:30 2008 UTC revision 1.3 by mlosch, Wed Jun 24 08:01:43 2009 UTC
# Line 89  C-    switch to 2-D fields: Line 89  C-    switch to 2-D fields:
89  C---  continue to write 2-D fields:  C---  continue to write 2-D fields:
90          j = j + 1          j = j + 1
91          nj = nj-1          nj = nj-1
92          CALL WRITE_REC_LEV_RL(fn, fp, 3,1,1,AREA, nj, myIter, myThid )          CALL WRITE_REC_3D_RL( fn, fp,  1, AREA , nj, myIter, myThid )
93          IF (j.LE.listDim) wrFldList(j) = 'siAREA  '          IF (j.LE.listDim) wrFldList(j) = 'siAREA  '
94    
95          j = j + 1          j = j + 1
96          nj = nj-1          nj = nj-1
97          CALL WRITE_REC_LEV_RL(fn, fp, 3,1,1,HEFF, nj, myIter, myThid )          CALL WRITE_REC_3D_RL( fn, fp,  1, HEFF , nj, myIter, myThid )
98          IF (j.LE.listDim) wrFldList(j) = 'siHEFF  '          IF (j.LE.listDim) wrFldList(j) = 'siHEFF  '
99    
100          j = j + 1          j = j + 1
# Line 118  C---  continue to write 2-D fields: Line 118  C---  continue to write 2-D fields:
118  C--    write Sea-Ice Dynamics variables (all 2-D fields):  C--    write Sea-Ice Dynamics variables (all 2-D fields):
119         j = j + 1         j = j + 1
120         nj = nj-1         nj = nj-1
121         CALL WRITE_REC_LEV_RL( fn, fp, 3,1,1,UICE, nj, myIter, myThid )         CALL WRITE_REC_3D_RL( fn, fp,  1, UICE , nj, myIter, myThid )
122         IF (j.LE.listDim)  wrFldList(j) = 'siUICE  '         IF (j.LE.listDim)  wrFldList(j) = 'siUICE  '
123    
124         j = j + 1         j = j + 1
125         nj = nj-1         nj = nj-1
126         CALL WRITE_REC_LEV_RL( fn, fp, 3,1,1,VICE, nj, myIter, myThid )         CALL WRITE_REC_3D_RL( fn, fp,  1, VICE , nj, myIter, myThid )
127         IF (j.LE.listDim)  wrFldList(j) = 'siVICE  '         IF (j.LE.listDim)  wrFldList(j) = 'siVICE  '
128    
129  #if (defined(SEAICE_CGRID) && defined(SEAICE_ALLOW_EVP))  #if (defined(SEAICE_CGRID) && defined(SEAICE_ALLOW_EVP))
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22