/[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.16 by jmc, Tue Jan 24 02:59:47 2006 UTC revision 1.17 by molod, Fri Mar 3 15:37:50 2006 UTC
# Line 63  C     stat_fname  :: List of statistics Line 63  C     stat_fname  :: List of statistics
63        INTEGER set_regMask(rdimLoc)        INTEGER set_regMask(rdimLoc)
64        _RS     val_regMask(rdimLoc)        _RS     val_regMask(rdimLoc)
65        INTEGER ku, stdUnit        INTEGER ku, stdUnit
66        INTEGER j,k,l,n,m        INTEGER j,k,l,n,m,nf
67        INTEGER iLen, regionCount        INTEGER iLen, regionCount
68        _RL undef, getcon        _RL undef, getcon
69        INTEGER  ILNBLNK        INTEGER  ILNBLNK
# Line 434  C     Echo History List Data Structure Line 434  C     Echo History List Data Structure
434            CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)            CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
435           ENDDO           ENDDO
436          ENDIF          ENDIF
437          WRITE(msgBuf,*) 'Fields:   ',(' ',flds(l,n),l=1,nfields(n))          DO nf = 1,nfields(n),10
438            m = MIN(nfields(n),nf+9)
439            WRITE(msgBuf,*) 'Fields:   ',(' ',flds(l,n),l=nf,m)
440          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)          CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid)
441            ENDDO
442        ENDDO        ENDDO
443        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
444       & '-----------------------------------------------------'       & '-----------------------------------------------------'
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22