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

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

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

revision 1.1 by jmc, Mon Dec 13 21:43:54 2004 UTC revision 1.2 by jmc, Tue Dec 14 03:48:23 2004 UTC
# Line 137  C     Fill Diagnostics Common Block with Line 137  C     Fill Diagnostics Common Block with
137       &          nfields(n).LT.numperlist ) THEN       &          nfields(n).LT.numperlist ) THEN
138               nfields(n) = nfields(n) + 1               nfields(n) = nfields(n) + 1
139               flds(nfields(n),n) = fields(m,l)               flds(nfields(n),n) = fields(m,l)
140             ELSEIF ( fields(m,n).NE.blk8c ) THEN             ELSEIF ( fields(m,l).NE.blk8c ) THEN
141               WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',               WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',
142       &        'Exceed Max.Num. of Fields/list numperlist=', numperlist       &        'Exceed Max.Num. of Fields/list numperlist=', numperlist
143               CALL PRINT_ERROR( msgBuf , myThid )               CALL PRINT_ERROR( msgBuf , myThid )
# Line 151  C     Fill Diagnostics Common Block with Line 151  C     Fill Diagnostics Common Block with
151             ENDIF             ENDIF
152           ENDDO           ENDDO
153           nlists = nlists + 1           nlists = nlists + 1
154    c        write(6,*) 'list summary:',n,nfields(n),nlevels(n)
155         ELSEIF ( frequency(l).NE.0 ) THEN         ELSEIF ( frequency(l).NE.0 ) THEN
156           WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',           WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',
157       &            'Exceed Max.Num. of list numlists=', numlists       &            'Exceed Max.Num. of list numlists=', numlists
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22