/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_vel_solve.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_vel_solve.F

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

revision 1.4 by dgoldberg, Thu Jul 26 02:14:25 2012 UTC revision 1.5 by dgoldberg, Thu Jul 26 16:13:18 2012 UTC
# Line 344  C END NL ITER. LOOP Line 344  C END NL ITER. LOOP
344  C-------------------------------------------------------------------  C-------------------------------------------------------------------
345    
346        if (iter_numconv .lt. streamice_max_nl_iter) then        if (iter_numconv .lt. streamice_max_nl_iter) then
347         PRINT *, "VELOCITY SOLVE CONVERGED, ", iter_numconv,         WRITE(msgBuf,'(A,I5,A)') 'VELOCITY SOLVE CONVERGED, ',
348       & " iterations"       &         iter_numconv, ' iterations'
349           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
350         &                     SQUEEZE_RIGHT , 1)
351        else        else
352         PRINT *, "VELOCITY SOLVE DID NOT CONVERGE IN ",         WRITE(msgBuf,'(A,I5,A)') 'VELOCITY SOLVE NOT CONVERGED IN ',
353       & iter, " iterations"       &         iter_numconv, ' iterations'
354           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
355         &                     SQUEEZE_RIGHT , 1)
356        endif        endif
357    
358  !        DO bj = myByLo(myThid), myByHi(myThid)  !        DO bj = myByLo(myThid), myByHi(myThid)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22