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

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

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

revision 1.19 by jmc, Wed Aug 14 00:57:33 2013 UTC revision 1.20 by jmc, Tue Jun 2 20:58:22 2015 UTC
# Line 67  C---+----1----+----2----+----3----+----4 Line 67  C---+----1----+----2----+----3----+----4
67    
68  C--   Track diagnostics pkg activation status:  C--   Track diagnostics pkg activation status:
69        IF ( myIter.EQ.nIter0 ) THEN        IF ( myIter.EQ.nIter0 ) THEN
         _BEGIN_MASTER(myThid)  
70  c       IF ( diag_pkgStatus.NE.10 ) STOP  c       IF ( diag_pkgStatus.NE.10 ) STOP
71            _BARRIER
72            _BEGIN_MASTER(myThid)
73          diag_pkgStatus = ready2fillDiags          diag_pkgStatus = ready2fillDiags
74          _END_MASTER(myThid)          _END_MASTER(myThid)
75            _BARRIER
76  c     ELSEIF  c     ELSEIF
77  c       IF ( diag_pkgStatus.NE.ready2fillDiags ) STOP  c       IF ( diag_pkgStatus.NE.ready2fillDiags ) STOP
78        ENDIF        ENDIF
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22