/[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.10 by jmc, Fri May 20 07:28:50 2005 UTC revision 1.11 by molod, Tue Jun 14 22:30:02 2005 UTC
# Line 58  C     stat_fname  :: List of statistics Line 58  C     stat_fname  :: List of statistics
58        INTEGER stat_region(rdimLoc,ldimLoc)        INTEGER stat_region(rdimLoc,ldimLoc)
59        INTEGER ku, stdUnit        INTEGER ku, stdUnit
60        INTEGER j,k,l,n,m        INTEGER j,k,l,n,m
61        INTEGER iL, regionCount        INTEGER regionCount
62        _RL undef, getcon        _RL undef, getcon
63        INTEGER  ILNBLNK        INTEGER  ILNBLNK
64        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
# Line 187  C     Fill Diagnostics Common Block with Line 187  C     Fill Diagnostics Common Block with
187        diagSt_ascii = (.NOT. diagSt_mnc) .OR. outputTypesInclusive        diagSt_ascii = (.NOT. diagSt_mnc) .OR. outputTypesInclusive
188    
189        DO l = 1,ldimLoc        DO l = 1,ldimLoc
190         iL = ILNBLNK(filename(l))         IF ( filename(L).NE.blkFilName .and. nlists.LT.numlists ) THEN
        IF ( frequency(l).NE.0. .AND. iL.EQ.0 ) THEN  
          WRITE(msgBuf,'(2A,I3,A,F17.6)') 'DIAGNOSTICS_READPARMS: ',  
      &    'Empty File-name ! (list l=', l, ' ), freq:',frequency(l)  
          CALL PRINT_ERROR( msgBuf , myThid )  
          STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS'  
        ENDIF  
        IF ( frequency(l).NE.0. .AND. nlists.LT.numlists ) THEN  
191           n = nlists + 1           n = nlists + 1
192           freq(n)    = frequency(l)           freq(n)    = frequency(l)
193           IF ( timePhase(l).NE. UNSET_RL ) THEN           IF ( timePhase(l).NE. UNSET_RL ) THEN
# Line 249  C-       will set levels later, once the Line 242  C-       will set levels later, once the
242           ENDDO           ENDDO
243           nlists = nlists + 1           nlists = nlists + 1
244  c        write(6,*) 'list summary:',n,nfields(n),nlevels(n)  c        write(6,*) 'list summary:',n,nfields(n),nlevels(n)
245         ELSEIF ( frequency(l).NE.0. ) THEN         ELSEIF (filename(L).NE.blkFilName) THEN
246           WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',           WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',
247       &            'Exceed Max.Num. of list numlists=', numlists       &            'Exceed Max.Num. of list numlists=', numlists
248           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
# Line 286  C     Fill Diagnostics Common Block with Line 279  C     Fill Diagnostics Common Block with
279        diagSt_ascii = (.NOT. diagSt_mnc) .OR. outputTypesInclusive        diagSt_ascii = (.NOT. diagSt_mnc) .OR. outputTypesInclusive
280    
281        DO l = 1,ldimLoc        DO l = 1,ldimLoc
282         iL = ILNBLNK(stat_fname(l))         IF(stat_fname(L).NE.blkFilName.AND.
283         IF ( stat_freq(l).NE.0. .AND. iL.EQ.0 ) THEN       .                            diagSt_nbLists.LT.numlists)THEN
          WRITE(msgBuf,'(2A,I3,A,F17.6)') 'DIAGNOSTICS_READPARMS: ',  
      &    'Empty File-name ! (list l=', l, ' ), stat_freq:',stat_freq(l)  
          CALL PRINT_ERROR( msgBuf , myThid )  
          STOP 'ABNORMAL END: S/R DIAGNOSTICS_READPARMS'  
        ENDIF  
        IF ( stat_freq(l).NE.0. .AND. diagSt_nbLists.LT.numlists ) THEN  
284           n = diagSt_nbLists + 1           n = diagSt_nbLists + 1
285           diagSt_freq(n) = stat_freq(l)           diagSt_freq(n) = stat_freq(l)
286           IF ( stat_phase(l).NE. UNSET_RL ) THEN           IF ( stat_phase(l).NE. UNSET_RL ) THEN
# Line 346  C-       no region selected => default i Line 333  C-       no region selected => default i
333           ENDDO           ENDDO
334           diagSt_nbLists = diagSt_nbLists + 1           diagSt_nbLists = diagSt_nbLists + 1
335  c        write(6,*) 'stat-list summary:',n,diagSt_nbFlds(n),regionCount  c        write(6,*) 'stat-list summary:',n,diagSt_nbFlds(n),regionCount
336         ELSEIF ( stat_freq(l).NE.0. ) THEN         ELSEIF ( stat_fname(L).NE.blkFilName ) THEN
337           WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',           WRITE(msgBuf,'(2A,I3)') 'DIAGNOSTICS_READPARMS: ',
338       &            'Exceed Max.Num. of list numlists=', numlists       &            'Exceed Max.Num. of list numlists=', numlists
339           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22