/[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.18 by jmc, Mon Jun 5 18:15:53 2006 UTC revision 1.19 by jmc, Sun Dec 24 20:20:59 2006 UTC
# Line 255  C-     Only lists with non-empty file na Line 255  C-     Only lists with non-empty file na
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: ',
# Line 464  C     Echo History List Data Structure Line 464  C     Echo History List Data Structure
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)
# Line 472  C     Echo History List Data Structure Line 478  C     Echo History List Data Structure
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)')
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22