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

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

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

revision 1.13 by jmc, Wed Aug 14 00:57:33 2013 UTC revision 1.14 by jmc, Tue Jun 2 20:58:22 2015 UTC
# Line 30  C     !LOCAL VARIABLES: Line 30  C     !LOCAL VARIABLES:
30        INTEGER i,j,k,bi,bj        INTEGER i,j,k,bi,bj
31    
32  C--   Track diagnostics pkg activation status:  C--   Track diagnostics pkg activation status:
33          _BARRIER
34        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
35  c      IF ( diag_pkgStatus.NE.3 ) STOP  c      IF ( diag_pkgStatus.NE.3 ) STOP
36         diag_pkgStatus = 10         diag_pkgStatus = 10
37        _END_MASTER( myThid )        _END_MASTER( myThid )
38          _BARRIER
39    
40  C--   Zero out the qdiag array which accumulates during integration  C--   Zero out the qdiag array which accumulates during integration
41        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22