/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_out.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_out.F

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

revision 1.7 by edhill, Tue Feb 8 20:39:58 2005 UTC revision 1.8 by jmc, Tue Feb 22 17:50:40 2005 UTC
# Line 132  C       Now define:  Zmdxxxxxx, Zudxxxxx Line 132  C       Now define:  Zmdxxxxxx, Zudxxxxx
132       &             'Dimensional coordinate value at the mid point',       &             'Dimensional coordinate value at the mid point',
133       &             myThid)       &             myThid)
134              ELSEIF (i .EQ. 2) THEN              ELSEIF (i .EQ. 2) THEN
135                ztmp(j) = rF(levs(j,listnum))                ztmp(j) = rF(levs(j,listnum) + 1)
136                CALL MNC_CW_ADD_VATTR_TEXT(dn(1),'description',                CALL MNC_CW_ADD_VATTR_TEXT(dn(1),'description',
137       &             'Dimensional coordinate value at the upper point',       &             'Dimensional coordinate value at the upper point',
138       &             myThid)       &             myThid)
139              ELSEIF (i .EQ. 3) THEN              ELSEIF (i .EQ. 3) THEN
140                ztmp(j) = rF(levs(j,listnum) + 1)                ztmp(j) = rF(levs(j,listnum))
141                CALL MNC_CW_ADD_VATTR_TEXT(dn(1),'description',                CALL MNC_CW_ADD_VATTR_TEXT(dn(1),'description',
142       &             'Dimensional coordinate value at the lower point',       &             'Dimensional coordinate value at the lower point',
143       &             myThid)       &             myThid)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22