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 ) |
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 |