/[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.19 by jmc, Sun Dec 24 20:20:59 2006 UTC revision 1.20 by jmc, Mon Aug 27 23:04:44 2007 UTC
# Line 227  C-     Only lists with non-empty file na Line 227  C-     Only lists with non-empty file na
227             averagePhase(n) = averagingPhase(l)             averagePhase(n) = averagingPhase(l)
228             averageCycle(n) = repeatCycle(l)             averageCycle(n) = repeatCycle(l)
229           ELSEIF (averagingFreq(l).NE.0. .OR. repeatCycle(l).NE.0) THEN           ELSEIF (averagingFreq(l).NE.0. .OR. repeatCycle(l).NE.0) THEN
230             WRITE(msgBuf,'(2A,F17.6,I3)') 'DIAGNOSTICS_READPARMS: ',             WRITE(msgBuf,'(2A,F18.6,I3)') 'DIAGNOSTICS_READPARMS: ',
231       &       'unvalid Average-Freq & Cycle:',       &       'unvalid Average-Freq & Cycle:',
232       &       averagingFreq(l), repeatCycle(l)       &       averagingFreq(l), repeatCycle(l)
233             CALL PRINT_ERROR( msgBuf , myThid )             CALL PRINT_ERROR( msgBuf , myThid )
# Line 296  c        write(6,*) 'list summary:',n,nf Line 296  c        write(6,*) 'list summary:',n,nf
296           WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',           WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',
297       &    'when trying to add list l=', l       &    'when trying to add list l=', l
298           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
299           WRITE(msgBuf,'(2A,F17.6,2A)') 'DIAGNOSTICS_READPARMS: ',           WRITE(msgBuf,'(2A,F18.6,2A)') 'DIAGNOSTICS_READPARMS: ',
300       &    ' Frq=', frequency(l), ', filename: ', filename(l)       &    ' Frq=', frequency(l), ', filename: ', filename(l)
301           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
302           STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS'           STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS'
# Line 432  c        write(6,*) 'stat-list summary:' Line 432  c        write(6,*) 'stat-list summary:'
432           WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',           WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',
433       &    'when trying to add stat_list l=', l       &    'when trying to add stat_list l=', l
434           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
435           WRITE(msgBuf,'(2A,F17.6,2A)') 'DIAGNOSTICS_READPARMS: ',           WRITE(msgBuf,'(2A,F18.6,2A)') 'DIAGNOSTICS_READPARMS: ',
436       &    ' Frq=', stat_freq(l), ', stat_fname: ', stat_fname(l)       &    ' Frq=', stat_freq(l), ', stat_fname: ', stat_fname(l)
437           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
438           STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS'           STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS'
# Line 452  C     Echo History List Data Structure Line 452  C     Echo History List Data Structure
452       & '-----------------------------------------------------'       & '-----------------------------------------------------'
453        CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)        CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
454        DO n = 1,nlists        DO n = 1,nlists
455          WRITE(msgBuf,'(2a)') 'Creating Output Stream: ', fnames(n)          WRITE(msgBuf,'(2A)') 'Creating Output Stream: ', fnames(n)
456          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
457          WRITE(msgBuf,'(2(A,F17.6))') 'Output Frequency:', freq(n),          WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:', freq(n),
458       &                               ' ; Phase: ', phase(n)       &                               ' ; Phase: ', phase(n)
459          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
460          WRITE(msgBuf,'(2(A,F17.6),A,I3)')          WRITE(msgBuf,'(2(A,F18.6),A,I3)')
461       &    ' Averaging Freq.:', averageFreq(n),       &    ' Averaging Freq.:', averageFreq(n),
462       &    ' , Phase: ', averagePhase(n), ' , Cycle:', averageCycle(n)       &    ' , Phase: ', averagePhase(n), ' , Cycle:', averageCycle(n)
463          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
# Line 479  C     Echo History List Data Structure Line 479  C     Echo History List Data Structure
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,'(21A)') '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
# Line 490  C     Echo History List Data Structure Line 490  C     Echo History List Data Structure
490       &     ' DIAGNOSTICS_READPARMS: statistics diags. summary:'       &     ' DIAGNOSTICS_READPARMS: statistics diags. summary:'
491        CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)        CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
492        DO n = 1,diagSt_nbLists        DO n = 1,diagSt_nbLists
493          WRITE(msgBuf,'(2a)') 'Creating Stats. Output Stream: ',          WRITE(msgBuf,'(2A)') 'Creating Stats. Output Stream: ',
494       &                       diagSt_Fname(n)       &                       diagSt_Fname(n)
495          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
496          WRITE(msgBuf,'(2(A,F17.6))') 'Output Frequency:',          WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:',
497       &               diagSt_freq(n), ' ; Phase: ', diagSt_phase(n)       &               diagSt_freq(n), ' ; Phase: ', diagSt_phase(n)
498          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
499          WRITE(msgBuf,'(A)') ' Regions : '          WRITE(msgBuf,'(A)') ' Regions: '
500          l = 12          l = 10
501          DO j=0,nRegions          DO j=0,nRegions
502           IF ( diagSt_region(j,n).GE.1 ) THEN           IF ( diagSt_region(j,n).GE.1 ) THEN
           IF (l+3.LE.MAX_LEN_MBUF) WRITE(msgBuf,'(A,I3)') msgBuf(1:l),j  
503            l = l+3            l = l+3
504              IF (l.LE.MAX_LEN_MBUF) WRITE(msgBuf(l-2:l),'(I3)') j
505           ENDIF           ENDIF
506          ENDDO          ENDDO
507          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
508          WRITE(msgBuf,*) 'Fields:   ',          DO nf = 1,diagSt_nbFlds(n),10
509       &                 (' ',diagSt_Flds(l,n),l=1,diagSt_nbFlds(n))            m = MIN(diagSt_nbFlds(n),nf+9)
510          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)            WRITE(msgBuf,'(21A)') ' Fields:   ',
511         &                 (' ',diagSt_Flds(l,n),l=nf,m)
512              CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
513            ENDDO
514        ENDDO        ENDDO
515        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
516       & '-----------------------------------------------------'       & '-----------------------------------------------------'
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22