/[MITgcm]/MITgcm/pkg/diagnostics/diagstats_output.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagstats_output.F

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

revision 1.8 by jmc, Tue Feb 5 15:13:01 2008 UTC revision 1.9 by jmc, Tue Nov 18 21:41:06 2008 UTC
# Line 41  C     myThid  :: my Thread Id number Line 41  C     myThid  :: my Thread Id number
41        INTEGER listId, myIter, myThid        INTEGER listId, myIter, myThid
42  CEOP  CEOP
43    
44    C     !FUNCTIONS:
45    c     INTEGER ILNBLNK
46    c     EXTERNAL ILNBLNK
47    #ifdef ALLOW_FIZHI
48          _RL   getcon
49          EXTERNAL getcon
50    #endif
51    
52  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
53        INTEGER j, m, ndId, iSp, iSm        INTEGER j, m, ndId, iSp, iSm
54        CHARACTER*10 gcode        CHARACTER*10 gcode
55        INTEGER mate        INTEGER mate
56        _RL statGlob(0:nStats,0:nLev,0:nRegions)        _RL statGlob(0:nStats,0:nLev,0:nRegions)
57        _RL tmp_Glob(0:nStats,0:nLev)        _RL tmp_Glob(0:nStats,0:nLev)
58        _RL undef, getcon        _RL undef
       EXTERNAL getcon  
 c     INTEGER ILNBLNK  
 c     EXTERNAL ILNBLNK  
59    
60        INTEGER ioUnit        INTEGER ioUnit
61        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
# Line 58  c     EXTERNAL ILNBLNK Line 63  c     EXTERNAL ILNBLNK
63  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
64    
65        ioUnit= standardMessageUnit        ioUnit= standardMessageUnit
66        undef = getcon('UNDEF')        undef = UNSET_RL
67    #ifdef ALLOW_FIZHI
68          IF ( useFIZHI ) undef = getcon('UNDEF')
69    #endif
70    
71        DO m = 1,diagSt_nbFlds(listId)        DO m = 1,diagSt_nbFlds(listId)
72         ndId = jSdiag(m,listId)         ndId = jSdiag(m,listId)
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22