/[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.19 by jmc, Wed Feb 6 21:25:49 2013 UTC revision 1.20 by jmc, Wed Aug 14 00:54:05 2013 UTC
# Line 24  C  - DIAG_PARAMS contains general parame Line 24  C  - DIAG_PARAMS contains general parame
24  C  - DIAG_STATIS contains the user selection of statistics-diags to write  C  - DIAG_STATIS contains the user selection of statistics-diags to write
25  C ======================================================================  C ======================================================================
26    
27    C--   DIAG_STATUS common block:
28    C  diag_pkgStatus  :: internal parameter to track status of this pkg settings
29    C             = -1 :: pkg is not used ;   = 1 :: user params are loaded
30    C             =  2 :: early initialisation is done (enable to add diags to list)
31    C             =  3 :: diagnostics setting is done (no more diags to add to list)
32    C             = 10 :: storage is initialised (init_varia)
33    C             = 20 :: ready for active section (filling diagnostics & output)
34    C             = 99 :: active section is over (end of the run)
35    C  ready2setDiags  :: pkgStatus level required to add any diagnostics to list
36    C  ready2fillDiags :: pkgStatus level required to fill any diagnostics
37    C  blkName         :: blank diagnostics name
38    
39          INTEGER  ready2setDiags, ready2fillDiags
40          PARAMETER ( ready2setDiags = 2 , ready2fillDiags = 20 )
41          CHARACTER*8 blkName
42          PARAMETER ( blkName = '        ' )
43    
44          INTEGER  diag_pkgStatus
45          COMMON / DIAG_STATUS_I /
46         &  diag_pkgStatus
47    
48  C--   DIAG_DEFINE common block:  C--   DIAG_DEFINE common block:
49  C       ndiagt :: total number of available diagnostics  C       ndiagt :: total number of available diagnostics
50  C       kdiag  :: number of levels associated with the diagnostic  C       kdiag  :: number of levels associated with the diagnostic
# Line 32  C       cdiag  :: list of available diag Line 53  C       cdiag  :: list of available diag
53  C       gdiag  :: parser field with characteristics of the diagnostics  C       gdiag  :: parser field with characteristics of the diagnostics
54  C       tdiag  :: description of field in diagnostic  C       tdiag  :: description of field in diagnostic
55  C       udiag  :: physical units of the diagnostic field  C       udiag  :: physical units of the diagnostic field
 C settingDiags :: internal flag: enable adding/changing available diagnostics list  
56    
57        INTEGER        ndiagt        INTEGER        ndiagt
58        INTEGER        kdiag(ndiagMax)        INTEGER        kdiag(ndiagMax)
# Line 41  C settingDiags :: internal flag: enable Line 61  C settingDiags :: internal flag: enable
61        CHARACTER*80   tdiag(ndiagMax)        CHARACTER*80   tdiag(ndiagMax)
62        CHARACTER*16   gdiag(ndiagMax)        CHARACTER*16   gdiag(ndiagMax)
63        CHARACTER*16   udiag(ndiagMax)        CHARACTER*16   udiag(ndiagMax)
       LOGICAL settingDiags  
64    
65        COMMON / DIAG_DEFINE_I /        COMMON / DIAG_DEFINE_I /
66       &  ndiagt, kdiag, hdiag       &  ndiagt, kdiag, hdiag
67        COMMON / DIAG_DEFINE_C /        COMMON / DIAG_DEFINE_C /
68       &  cdiag, gdiag, tdiag, udiag       &  cdiag, gdiag, tdiag, udiag
       COMMON / DIAG_DEFINE_L /  
      &  settingDiags  
69    
70  C--   DIAG_STORE common block:  C--   DIAG_STORE common block:
71  C       qdiag  :: storage array for 2D/3D diagnostic fields  C       qdiag  :: storage array for 2D/3D diagnostic fields
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22