/[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.21 by jmc, Tue Feb 5 15:31:19 2008 UTC revision 1.22 by mlosch, Thu May 22 08:36:05 2008 UTC
# Line 35  C     timePhase :: phase (in s) within t Line 35  C     timePhase :: phase (in s) within t
35  C     averagingFreq  :: frequency (in s) for periodic averaging interval  C     averagingFreq  :: frequency (in s) for periodic averaging interval
36  C     averagingPhase :: phase     (in s) for periodic averaging interval  C     averagingPhase :: phase     (in s) for periodic averaging interval
37  C     repeatCycle    :: number of averaging intervals in 1 cycle  C     repeatCycle    :: number of averaging intervals in 1 cycle
38    C     mising_value     :: missing value for floats   in output
39    C     mising_value_int :: missing value for integers in output
40  C     levels    :: List Output Levels  C     levels    :: List Output Levels
41  C     fields    :: List Output Fields  C     fields    :: List Output Fields
42  C     filename  :: List Output Filename  C     filename  :: List Output Filename
# Line 55  C     stat_fname  :: List of statistics Line 57  C     stat_fname  :: List of statistics
57        _RL         frequency(ldimLoc), timePhase(ldimLoc)        _RL         frequency(ldimLoc), timePhase(ldimLoc)
58        _RL         averagingFreq(ldimLoc), averagingPhase(ldimLoc)        _RL         averagingFreq(ldimLoc), averagingPhase(ldimLoc)
59        INTEGER     repeatCycle(ldimLoc)        INTEGER     repeatCycle(ldimLoc)
60          _RL         missing_value(ldimLoc)
61          INTEGER     missing_value_int(ldimLoc)
62        _RL         levels(kdimLoc,ldimLoc)        _RL         levels(kdimLoc,ldimLoc)
63        _RL         stat_freq(ldimLoc), stat_phase(ldimLoc)        _RL         stat_freq(ldimLoc), stat_phase(ldimLoc)
64        CHARACTER*8 fields(fdimLoc,ldimLoc)        CHARACTER*8 fields(fdimLoc,ldimLoc)
# Line 77  C--   full level output: Line 81  C--   full level output:
81        NAMELIST / DIAGNOSTICS_LIST /        NAMELIST / DIAGNOSTICS_LIST /
82       &     frequency, timePhase,       &     frequency, timePhase,
83       &     averagingFreq, averagingPhase, repeatCycle,       &     averagingFreq, averagingPhase, repeatCycle,
84         &     missing_value, missing_value_int,
85       &     levels, fields, filename, fileflags,       &     levels, fields, filename, fileflags,
86       &     dumpAtLast, diag_mnc,       &     dumpAtLast, diag_mnc,
87       &     diag_pickup_read,     diag_pickup_write,       &     diag_pickup_read,     diag_pickup_write,
# Line 104  C     Initialize and Read Diagnostics Na Line 109  C     Initialize and Read Diagnostics Na
109          averagingPhase(l)= 0.          averagingPhase(l)= 0.
110          repeatCycle(l)   = 0          repeatCycle(l)   = 0
111          filename(l)   = blkFilName          filename(l)   = blkFilName
112            missing_value(l)     = UNSET_RL
113            missing_value_int(l) = UNSET_I
114  C       eight spaces:        12345678  C       eight spaces:        12345678
115  c       fileflags(l)(1:8) = '        '  c       fileflags(l)(1:8) = '        '
116          fileflags(l)  = blk8c          fileflags(l)  = blk8c
# Line 183  C     Initialise DIAG_SELECT common bloc Line 190  C     Initialise DIAG_SELECT common bloc
190          nlevels(n) = 0          nlevels(n) = 0
191          nfields(n) = 0          nfields(n) = 0
192          fnames(n) = blkFilName          fnames(n) = blkFilName
193            misvalFlt(n) = UNSET_RL
194            misvalInt(n) = UNSET_I
195          DO k = 1,numLevels          DO k = 1,numLevels
196            levs(k,n) = 0            levs(k,n) = 0
197          ENDDO          ENDDO
# Line 242  C-     Only lists with non-empty file na Line 251  C-     Only lists with non-empty file na
251             averageFreq(n)  = frequency(l)             averageFreq(n)  = frequency(l)
252             averagePhase(n) = phase(n)             averagePhase(n) = phase(n)
253           ENDIF           ENDIF
254             IF ( missing_value(l) .NE. UNSET_RL )
255         &        misvalFlt(n) = missing_value(l)
256             IF ( missing_value_int(l) .NE. UNSET_I )
257         &        misvalInt(n) = missing_value_int(l)
258           fnames(n)  = filename (l)           fnames(n)  = filename (l)
259           fflags(n)  = fileflags(l)           fflags(n)  = fileflags(l)
260           nlevels(n) = 0           nlevels(n) = 0
# Line 461  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))')
478         &       'missing value:   ', misvalFlt(n),
479         &       ' ; for integers: ', misvalInt(n)
480            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'
483            CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)            CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22