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

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

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

revision 1.6 by jmc, Mon Dec 13 21:55:48 2004 UTC revision 1.7 by jmc, Sun Jun 26 16:51:49 2005 UTC
# Line 39  C     we are trying to fill a valid diag Line 39  C     we are trying to fill a valid diag
39        do n = 1,ndiagt        do n = 1,ndiagt
40          if(chardiag.eq.cdiag(n)) then          if(chardiag.eq.cdiag(n)) then
41            ndiagnum = n            ndiagnum = n
42            ipointer = idiag(n)  c         ipointer = idiag(n)
43          endif          endif
44        enddo        enddo
45        if( ndiagnum.ne.0 .and. ipointer.ne.0 ) then        if( ndiagnum.ne.0 .and. ipointer.ne.0 ) then
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22