255 |
WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ', |
WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ', |
256 |
& 'Exceed Max.Num. of Levels numLevels=', numLevels |
& 'Exceed Max.Num. of Levels numLevels=', numLevels |
257 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
258 |
WRITE(msgBuf,'(2A,I3,A,F3.0)') 'DIAGNOSTICS_READPARMS: ', |
WRITE(msgBuf,'(2A,I3,A,F8.0)') 'DIAGNOSTICS_READPARMS: ', |
259 |
& 'when trying to add level(k=', k, ' )=', levels(k,l) |
& 'when trying to add level(k=', k, ' )=', levels(k,l) |
260 |
CALL PRINT_ERROR( msgBuf , myThid ) |
CALL PRINT_ERROR( msgBuf , myThid ) |
261 |
WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_READPARMS: ', |
WRITE(msgBuf,'(2A,I3,2A)') 'DIAGNOSTICS_READPARMS: ', |
464 |
IF ( nlevels(n).EQ.-1 ) THEN |
IF ( nlevels(n).EQ.-1 ) THEN |
465 |
WRITE(msgBuf,'(A,A)') ' Levels: ','will be set later' |
WRITE(msgBuf,'(A,A)') ' Levels: ','will be set later' |
466 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
467 |
|
ELSEIF ( fflags(n)(2:2).EQ.'P' ) THEN |
468 |
|
DO l=1,nlevels(n),10 |
469 |
|
m = MIN(nlevels(n),l+9) |
470 |
|
WRITE(msgBuf,'(A,1P10E10.3)')' interp: ', (levs(k,n),k=l,m) |
471 |
|
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
472 |
|
ENDDO |
473 |
ELSE |
ELSE |
474 |
DO l=1,nlevels(n),20 |
DO l=1,nlevels(n),20 |
475 |
m = MIN(nlevels(n),l+19) |
m = MIN(nlevels(n),l+19) |
478 |
ENDDO |
ENDDO |
479 |
ENDIF |
ENDIF |
480 |
DO nf = 1,nfields(n),10 |
DO nf = 1,nfields(n),10 |
481 |
m = MIN(nfields(n),nf+9) |
m = MIN(nfields(n),nf+9) |
482 |
WRITE(msgBuf,*) 'Fields: ',(' ',flds(l,n),l=nf,m) |
WRITE(msgBuf,'(21A)') 'Fields: ',(' ',flds(l,n),l=nf,m) |
483 |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
484 |
ENDDO |
ENDDO |
485 |
ENDDO |
ENDDO |
486 |
WRITE(msgBuf,'(A)') |
WRITE(msgBuf,'(A)') |