/[MITgcm]/MITgcm/pkg/seaice/seaice_jfnk.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_jfnk.F

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

revision 1.5 by mlosch, Wed Nov 7 09:56:23 2012 UTC revision 1.6 by mlosch, Wed Nov 7 10:08:25 2012 UTC
# Line 292  C     end of Newton iterate Line 292  C     end of Newton iterate
292  C  C
293  C--   Output diagnostics  C--   Output diagnostics
294  C  C
295          IF ( SEAICE_monFreq .GT. 0. _d 0 ) THEN
296  C     Count iterations  C     Count iterations
297        totalJFNKtimeSteps = totalJFNKtimeSteps + 1         totalJFNKtimeSteps = totalJFNKtimeSteps + 1
298        totalNewtonIters   = totalNewtonIters + newtonIter         totalNewtonIters   = totalNewtonIters + newtonIter
299        totalKrylovIters   = totalKrylovIters + totalKrylovItersLoc         totalKrylovIters   = totalKrylovIters + totalKrylovItersLoc
300  C     Record failure  C     Record failure
301        totalKrylovFails   = totalKrylovFails + krylovFails         totalKrylovFails   = totalKrylovFails + krylovFails
302        IF ( newtonIter .EQ. SEAICEnewtonIterMax ) THEN         IF ( newtonIter .EQ. SEAICEnewtonIterMax ) THEN
303         totalNewtonFails = totalNewtonFails + 1          totalNewtonFails = totalNewtonFails + 1
304           ENDIF
305        ENDIF        ENDIF
306  C     Decide whether it is time to dump and reset the counter  C     Decide whether it is time to dump and reset the counter
307        IF ( DIFFERENT_MULTIPLE(SEAICE_monFreq,myTime+deltaTClock,        IF ( DIFFERENT_MULTIPLE(SEAICE_monFreq,myTime+deltaTClock,
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22