/[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.22 by mlosch, Thu May 22 08:36:05 2008 UTC revision 1.23 by jmc, Fri May 30 01:58:51 2008 UTC
# Line 474  C     Echo History List Data Structure Line 474  C     Echo History List Data Structure
474       &    ' Averaging Freq.:', averageFreq(n),       &    ' Averaging Freq.:', averageFreq(n),
475       &    ' , Phase: ', averagePhase(n), ' , Cycle:', averageCycle(n)       &    ' , Phase: ', averagePhase(n), ' , Cycle:', averageCycle(n)
476          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
477          WRITE(msgBuf,'(A,E18.6,A,I18))')          WRITE(msgBuf,'(A,1PE20.12,A,I12)')
478       &       'missing value:   ', misvalFlt(n),       &       ' missing value:',  misvalFlt(n),
479       &       ' ; for integers: ', misvalInt(n)       &       ' ; for integers:', misvalInt(n)
480          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
481          IF ( nlevels(n).EQ.-1 ) THEN          IF ( nlevels(n).EQ.-1 ) THEN
482            WRITE(msgBuf,'(A,A)') ' Levels:    ','will be set later'            WRITE(msgBuf,'(A,A)') ' Levels:    ','will be set later'
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22