/[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.8 by molod, Fri May 13 18:22:52 2005 UTC revision 1.9 by jmc, Sat May 14 20:45:28 2005 UTC
# Line 37  C     filename  :: List Output Filename Line 37  C     filename  :: List Output Filename
37        PARAMETER ( ldimLoc = 2*numlists )        PARAMETER ( ldimLoc = 2*numlists )
38        PARAMETER ( kdimLoc = 2*numLevels )        PARAMETER ( kdimLoc = 2*numLevels )
39        PARAMETER ( fdimLoc = 2*numperlist )        PARAMETER ( fdimLoc = 2*numperlist )
40        _RL     frequency(ldimLoc)        _RL         frequency(ldimLoc), timePhase(ldimLoc)
41        _RL         levels(kdimLoc,ldimLoc)        _RL         levels(kdimLoc,ldimLoc)
42        CHARACTER*8 fields(fdimLoc,ldimLoc)        CHARACTER*8 fields(fdimLoc,ldimLoc)
43        CHARACTER*80 filename(ldimLoc), blkFilName        CHARACTER*80 filename(ldimLoc), blkFilName
# Line 51  C     filename  :: List Output Filename Line 51  C     filename  :: List Output Filename
51        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
52    
53        NAMELIST / diagnostics_list /        NAMELIST / diagnostics_list /
54       &     frequency, levels, fields, filename, fileflags,       &     frequency, timePhase, levels, fields, filename, fileflags,
55       &     diag_mnc,       &     diag_mnc,
56       &     diag_pickup_read,     diag_pickup_write,       &     diag_pickup_read,     diag_pickup_write,
57       &     diag_pickup_read_mnc, diag_pickup_write_mnc       &     diag_pickup_read_mnc, diag_pickup_write_mnc
# Line 67  C     Initialize and Read Diagnostics Na Line 67  C     Initialize and Read Diagnostics Na
67    
68        DO l = 1,ldimLoc        DO l = 1,ldimLoc
69          frequency(l) = 0.          frequency(l) = 0.
70            timePhase(l) = UNSET_RL
71          filename (l) = blkFilName          filename (l) = blkFilName
72  C       eight spaces:        12345678  C       eight spaces:        12345678
73          fileflags(l)(1:8) = '        '          fileflags(l)(1:8) = '        '
# Line 96  C     Initialise diag_choices common blo Line 97  C     Initialise diag_choices common blo
97        nlists = 0        nlists = 0
98        DO n = 1,numlists        DO n = 1,numlists
99          freq(n) = 0.          freq(n) = 0.
100            phase(n) = 0.
101          nlevels(n) = 0          nlevels(n) = 0
102          nfields(n) = 0          nfields(n) = 0
103          fnames(n) = blkFilName          fnames(n) = blkFilName
# Line 129  C     Fill Diagnostics Common Block with Line 131  C     Fill Diagnostics Common Block with
131         IF ( frequency(l).NE.0. .AND. nlists.LT.numlists ) THEN         IF ( frequency(l).NE.0. .AND. nlists.LT.numlists ) THEN
132           n = nlists + 1           n = nlists + 1
133           freq(n)    = frequency(l)           freq(n)    = frequency(l)
134             IF ( timePhase(l).NE. UNSET_RL ) THEN
135               phase(n) = timePhase(l)
136             ELSEIF ( frequency(l) .LT. 0. ) THEN
137               phase(n) = -0.5 _d 0 * frequency(l)
138             ENDIF
139           fnames(n)  = filename (l)           fnames(n)  = filename (l)
140           fflags(n)  = fileflags(l)           fflags(n)  = fileflags(l)
141           nlevels(n) = 0           nlevels(n) = 0
# Line 205  C     Echo History List Data Structure Line 212  C     Echo History List Data Structure
212        DO n = 1,nlists        DO n = 1,nlists
213          WRITE(msgBuf,'(2a)') 'Creating Output Stream: ',fnames(n)          WRITE(msgBuf,'(2a)') 'Creating Output Stream: ',fnames(n)
214          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
215          WRITE(msgBuf,*) 'Frequency: ',freq(n)  c       WRITE(msgBuf,*) 'Frequency: ',freq(n)
216            WRITE(msgBuf,'(2(A,F17.6))') 'Frequency : ',freq(n),
217         &                               ' ; Phase: ', phase(n)
218          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
219          IF ( nlevels(n).EQ.-1 ) THEN          IF ( nlevels(n).EQ.-1 ) THEN
220            WRITE(msgBuf,'(A,A)') ' Levels:    ','will be set later'            WRITE(msgBuf,'(A,A)') ' Levels:    ','will be set later'
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22