/[MITgcm]/MITgcm/pkg/streamice/streamice_vel_solve.F
ViewVC logotype

Diff of /MITgcm/pkg/streamice/streamice_vel_solve.F

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

revision 1.10 by dgoldberg, Mon Feb 16 16:46:45 2015 UTC revision 1.11 by dgoldberg, Mon Apr 20 14:22:13 2015 UTC
# Line 149  C--------------------------------------- Line 149  C---------------------------------------
149    
150        DO iter=1,maxNLIter        DO iter=1,maxNLIter
151    
152    
153  C     To avoid using "exit", loop goes through all iterations  C     To avoid using "exit", loop goes through all iterations
154  C       but after convergence loop does nothing  C       but after convergence loop does nothing
155    
# Line 323  C       but after convergence loop does Line 324  C       but after convergence loop does
324  C END NL ITER. LOOP  C END NL ITER. LOOP
325  C-------------------------------------------------------------------  C-------------------------------------------------------------------
326    
327        if (iter_numconv .lt. streamice_max_nl_iter) then        if (iter_numconv .lt. maxnliter) then
328         WRITE(msgBuf,'(A,I5,A)') 'VELOCITY SOLVE CONVERGED, ',         WRITE(msgBuf,'(A,I5,A)') 'VELOCITY SOLVE CONVERGED, ',
329       &         iter_numconv, ' iterations'       &         iter_numconv, ' iterations'
330         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22