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

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

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

revision 1.7 by jmc, Tue Jun 21 18:00:15 2011 UTC revision 1.8 by jmc, Wed Jun 29 22:03:56 2011 UTC
# Line 102  C---  Set pointer if not already set, ot Line 102  C---  Set pointer if not already set, ot
102        ENDIF        ENDIF
103        gcode   = gdiag(nn)(1:10)        gcode   = gdiag(nn)(1:10)
104        IF ( flagD ) THEN        IF ( flagD ) THEN
         idiag(mId,listId) = ndiagmx + 1  
105          IF ( diagIsPP ) THEN          IF ( diagIsPP ) THEN
106    C-      Add this diag with negative idiag pointer (since those 2 diags
107    C        share the same pointer and "nn" will get the positive pointer).
108              idiag(mId,listId) = -(ndiagmx+1)
109  C-      Also add "nn" to the Active list  C-      Also add "nn" to the Active list
110            k = nActive(listId) + 1            k = nActive(listId) + 1
111            IF ( k.LE.numperList ) THEN            IF ( k.LE.numperList ) THEN
# Line 112  C-      Also add "nn" to the Active list Line 114  C-      Also add "nn" to the Active list
114              flds (k,listId) = cdiag(nn)              flds (k,listId) = cdiag(nn)
115            ENDIF            ENDIF
116            nActive(listId) = k            nActive(listId) = k
117            ELSE
118              idiag(mId,listId) = ndiagmx + 1
119          ENDIF          ENDIF
120          ndiagmx = ndiagmx + kdiag(nn)*averageCycle(listId)          ndiagmx = ndiagmx + kdiag(nn)*averageCycle(listId)
121          IF ( ndiagmx.GT.numDiags ) THEN          IF ( ndiagmx.GT.numDiags ) THEN
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22