/[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.7 by jmc, Sat May 14 20:45:27 2005 UTC revision 1.8 by jmc, Fri May 20 07:28:49 2005 UTC
# Line 14  C         gdiag - parser field with char Line 14  C         gdiag - parser field with char
14  C         udiag - physical units of the diagnostic field  C         udiag - physical units of the diagnostic field
15  C  - diagnostics contains the large array containing diagnostic fields  C  - diagnostics contains the large array containing diagnostic fields
16  C         qdiag - diagnostic fields array  C         qdiag - diagnostic fields array
17    C        qSdiag - storage array for diagnostics of (per level) statistics
18    C  - diag_choices contains the user-chosen list of fields to store
19  C         jdiag - short-list (active diag.) to long-list (available diag.)  C         jdiag - short-list (active diag.) to long-list (available diag.)
20  C                 pointer  C                 pointer
21  C  - diag_choices contains the user-chosen list of fields to store  C  - diag_statis  contains the user-chosen list of statistics to store
22  C ======================================================================  C ======================================================================
23    
24  C diagarrays common  C diagarrays common
# Line 27  C diagarrays common Line 29  C diagarrays common
29        integer        idiag(ndiagMax)        integer        idiag(ndiagMax)
30        integer        kdiag(ndiagMax)        integer        kdiag(ndiagMax)
31        integer        ndiag(ndiagMax)        integer        ndiag(ndiagMax)
32        integer        mdiag(ndiagMax)  c     integer        mdiag(ndiagMax)
33        character*80   tdiag(ndiagMax)        character*80   tdiag(ndiagMax)
34        character*16   gdiag(ndiagMax)        character*16   gdiag(ndiagMax)
35        character*16   udiag(ndiagMax)        character*16   udiag(ndiagMax)
# Line 37  C diagarrays common Line 39  C diagarrays common
39        common /diagarrays/ idiag        common /diagarrays/ idiag
40        common /diagarrays/ kdiag        common /diagarrays/ kdiag
41        common /diagarrays/ ndiag        common /diagarrays/ ndiag
42        common /diagarrays/ mdiag  c     common /diagarrays/ mdiag
43        common /diagarrays/ tdiag        common /diagarrays/ tdiag
44        common /diagarrays/ gdiag        common /diagarrays/ gdiag
45        common /diagarrays/ udiag        common /diagarrays/ udiag
# Line 1432  C ------------------- Line 1434  C -------------------
1434    
1435    
1436  C diagnostics common  C diagnostics common
1437    C      qSdiag  - storage array for (per level) statistics
1438    
1439        _RL qdiag(1-OLx:sNx+Olx,1-Oly:sNy+Oly,numdiags,nSx,nSy)        _RL qdiag(1-OLx:sNx+Olx,1-Oly:sNy+Oly,numdiags,nSx,nSy)
1440          _RL qSdiag(0:nStats,0:nRegions,diagSt_size,nSx,nSy)
1441    
1442        common /diagnostics/ qdiag        common /diagnostics/ qdiag, qSdiag
1443    
1444            
1445  C diag_choices common  C diag_choices common
1446    C     freq       :: frequency (in s) to write output stream # n
1447    C     phase      :: phase     (in s) to write output stream # n
1448  C     nfields(n) :: number of active diagnostics for output stream # n  C     nfields(n) :: number of active diagnostics for output stream # n
1449  C     nActive(n) :: number of active diagnostics (including counters)  C     nActive(n) :: number of active diagnostics (including counters)
1450  C                   for output stream # n  C                   for output stream # n
1451  C     fflags(n)  :: character string with per-file flags  C     fflags(n)  :: character string with per-file flags
 C     freq       :: frequency (in s) to write output stream # n  
 C     phase      :: phase     (in s) to write output stream # n  
1452    
1453        integer nlists        integer nlists
1454    
# Line 1463  C     phase      :: phase     (in s) to Line 1468  C     phase      :: phase     (in s) to
1468       &     diag_pickup_read_mnc,    diag_pickup_write_mnc       &     diag_pickup_read_mnc,    diag_pickup_write_mnc
1469    
1470        common /diag_choices/        common /diag_choices/
1471       &     levs, jdiag, flds, fnames, fflags,       &     freq, phase, levs, nlevels,
1472       &     freq, phase, nlevels, nfields, nActive, nlists,       &     nfields, nActive, nlists, jdiag,
1473         &     flds, fnames, fflags,
1474       &     diag_mdsio, diag_mnc,       &     diag_mdsio, diag_mnc,
1475       &     diag_pickup_read,        diag_pickup_write,       &     diag_pickup_read,        diag_pickup_write,
1476       &     diag_pickup_read_mdsio,  diag_pickup_write_mdsio,       &     diag_pickup_read_mdsio,  diag_pickup_write_mdsio,
1477       &     diag_pickup_read_mnc,    diag_pickup_write_mnc       &     diag_pickup_read_mnc,    diag_pickup_write_mnc
1478                        
1479    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
1480    
1481          _RL       diagSt_freq(numlists), diagSt_phase(numlists)
1482          CHARACTER*8  diagSt_Flds(numperlist,numlists)
1483          CHARACTER*80 diagSt_Fname(numlists)
1484          INTEGER   iSdiag(ndiagMax)
1485          INTEGER   jSdiag(numperlist,numlists)
1486          INTEGER   diagSt_region(0:nRegions,numlists)
1487          INTEGER   diagSt_nbFlds(numlists)
1488          INTEGER   diagSt_nbActv(numlists)
1489          INTEGER   diagSt_nbLists
1490          INTEGER   diagSt_ioUnit(numlists)
1491          LOGICAL   diagSt_ascii, diagSt_mnc
1492          COMMON / DIAG_STATIS /
1493         &     diagSt_freq, diagSt_phase,
1494         &     diagSt_Flds, diagSt_Fname,
1495         &     iSdiag, jSdiag, diagSt_region,
1496         &     diagSt_nbFlds, diagSt_nbActv, diagSt_nbLists,
1497         &     diagSt_ioUnit,
1498         &     diagSt_Ascii, diagSt_mnc
1499    
1500  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
1501  CEH3 ;;; mode:fortran ***  CEH3 ;;; mode:fortran ***
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22