/[MITgcm]/MITgcm/pkg/diagnostics/DIAGNOSTICS.h
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/DIAGNOSTICS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jmc, Sat Dec 18 23:53:04 2004 UTC revision 1.6 by molod, Fri May 13 18:22:52 2005 UTC
# Line 1441  C diag_choices common Line 1441  C diag_choices common
1441  C     nfields(n) :: number of active diagnostics for output stream # n  C     nfields(n) :: number of active diagnostics for output stream # n
1442  C     nActive(n) :: number of active diagnostics (including counters)  C     nActive(n) :: number of active diagnostics (including counters)
1443  C                   for output stream # n  C                   for output stream # n
1444    C     fflags(n)  :: character string with per-file flags
1445    
1446        integer nlists        integer nlists
1447    
1448        integer freq(numlists)        _RL freq(numlists)
1449        integer nlevels(numlists)        integer nlevels(numlists)
1450        integer nfields(numlists)        integer nfields(numlists)
1451        integer nActive(numlists)        integer nActive(numlists)
1452        _RL levs (numLevels,numlists)        _RL levs (numLevels,numlists)
1453        integer jdiag(numperlist,numlists)        integer jdiag(numperlist,numlists)
1454        character*8 flds (numperlist,numlists)        character*8 flds (numperlist,numlists)
1455        character*8 fnames(numlists)        character*80 fnames(numlists)
1456        logical diag_mdsio        character*8 fflags(numlists)
1457        logical diag_mnc        logical
1458         &     diag_mdsio, diag_mnc,
1459         &     diag_pickup_read,        diag_pickup_write,
1460         &     diag_pickup_read_mdsio,  diag_pickup_write_mdsio,
1461         &     diag_pickup_read_mnc,    diag_pickup_write_mnc
1462    
1463        common /diag_choices/        common /diag_choices/
1464       &     levs, jdiag, flds, fnames,       &     levs, jdiag, flds, fnames, fflags,
1465       &     freq, nlevels, nfields, nActive, nlists,       &     freq, nlevels, nfields, nActive, nlists,
1466       &     diag_mdsio, diag_mnc       &     diag_mdsio, diag_mnc,
1467         &     diag_pickup_read,        diag_pickup_write,
1468         &     diag_pickup_read_mdsio,  diag_pickup_write_mdsio,
1469         &     diag_pickup_read_mnc,    diag_pickup_write_mnc
1470              
1471    
1472  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
1473  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22