130 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
131 |
|
|
132 |
IF ( write2file ) THEN |
IF ( write2file ) THEN |
133 |
IF ( debugLevel.GE.debLevB ) THEN |
IF ( debugLevel.GE.debLevC ) THEN |
134 |
CALL DIAGNOSTICS_SUMMARY( myTime, myIter, myThid ) |
CALL DIAGNOSTICS_SUMMARY( myTime, myIter, myThid ) |
135 |
ENDIF |
ENDIF |
136 |
C- wait for everyone before setting arrays to zero: |
C- wait for everyone before setting arrays to zero: |