/[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.7 by edhill, Mon May 2 21:24:12 2005 UTC revision 1.8 by molod, Fri May 13 18:22:52 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        INTEGER     frequency(ldimLoc)        _RL     frequency(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 66  C     Initialize and Read Diagnostics Na Line 66  C     Initialize and Read Diagnostics Na
66        ENDDO        ENDDO
67    
68        DO l = 1,ldimLoc        DO l = 1,ldimLoc
69          frequency(l) = 0          frequency(l) = 0.
70          filename (l) = blkFilName          filename (l) = blkFilName
71  C       eight spaces:        12345678  C       eight spaces:        12345678
72          fileflags(l)(1:8) = '        '          fileflags(l)(1:8) = '        '
# Line 95  C       eight spaces:        12345678 Line 95  C       eight spaces:        12345678
95  C     Initialise diag_choices common block  C     Initialise diag_choices common block
96        nlists = 0        nlists = 0
97        DO n = 1,numlists        DO n = 1,numlists
98          freq(n) = 0          freq(n) = 0.
99          nlevels(n) = 0          nlevels(n) = 0
100          nfields(n) = 0          nfields(n) = 0
101          fnames(n) = blkFilName          fnames(n) = blkFilName
# Line 120  C     Fill Diagnostics Common Block with Line 120  C     Fill Diagnostics Common Block with
120    
121        DO l = 1,ldimLoc        DO l = 1,ldimLoc
122         iL = ILNBLNK(filename(l))         iL = ILNBLNK(filename(l))
123         IF ( frequency(l).NE.0 .AND. iL.EQ.0 ) THEN         IF ( frequency(l).NE.0. .AND. iL.EQ.0 ) THEN
124           WRITE(msgBuf,'(2A,I3,A,I6)') 'DIAGNOSTICS_READPARMS: ',           WRITE(msgBuf,'(2A,I3,A,I6)') 'DIAGNOSTICS_READPARMS: ',
125       &    'Empty File-name ! (list l=', l, ' ), freq:',frequency(l)       &    'Empty File-name ! (list l=', l, ' ), freq:',frequency(l)
126           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
127           STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS'           STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS'
128         ENDIF         ENDIF
129         IF ( frequency(l).NE.0 .AND. nlists.LT.numlists ) THEN         IF ( frequency(l).NE.0. .AND. nlists.LT.numlists ) THEN
130           n = nlists + 1           n = nlists + 1
131           freq(n)    = frequency(l)           freq(n)    = frequency(l)
132           fnames(n)  = filename (l)           fnames(n)  = filename (l)
# Line 176  C-       will set levels later, once the Line 176  C-       will set levels later, once the
176           ENDDO           ENDDO
177           nlists = nlists + 1           nlists = nlists + 1
178  c        write(6,*) 'list summary:',n,nfields(n),nlevels(n)  c        write(6,*) 'list summary:',n,nfields(n),nlevels(n)
179         ELSEIF ( frequency(l).NE.0 ) THEN         ELSEIF ( frequency(l).NE.0. ) THEN
180           WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',           WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',
181       &            'Exceed Max.Num. of list numlists=', numlists       &            'Exceed Max.Num. of list numlists=', numlists
182           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22