/[MITgcm]/MITgcm/lsopt/lsopt_top.F
ViewVC logotype

Diff of /MITgcm/lsopt/lsopt_top.F

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

revision 1.4 by heimbach, Thu Sep 9 15:51:26 2004 UTC revision 1.5 by mlosch, Fri Dec 3 01:05:44 2004 UTC
# Line 377  c--------------------------------------- Line 377  c---------------------------------------
377              print iform, iiter, tact, ifunc, ff, gnorm0              print iform, iiter, tact, ifunc, ff, gnorm0
378       $           , DNRM2( nn, xx, 1 ), 0.       $           , DNRM2( nn, xx, 1 ), 0.
379    
380              write(94,'(i5,2x,1pe11.4,4(2x,1pe8.1))')  Cml            write(94,'(i5,2x,1pe11.4,4(2x,1pe8.1))')
381       &           iiter, ff, gnorm0, tact,  Cml     &           iiter, ff, gnorm0, tact,
382       &           DNRM2( nn, xx, 1 ), 0.  Cml     &           DNRM2( nn, xx, 1 ), 0.
383    
384              if ( itmax .EQ. 0 ) then              if ( itmax .EQ. 0 ) then
385                 ifail = 10                 ifail = 10
# Line 461  c--------------------------------------- Line 461  c---------------------------------------
461        print iform, iiter, tact, ifunc, ff, gnorm        print iform, iiter, tact, ifunc, ff, gnorm
462       $     , DNRM2( nn, xx, 1 ), tact*DNRM2( nn, dd, 1 )       $     , DNRM2( nn, xx, 1 ), tact*DNRM2( nn, dd, 1 )
463    
464        write(94,'(i5,2x,1pe11.4,4(2x,1pe8.1))')  Cml      write(94,'(i5,2x,1pe11.4,4(2x,1pe8.1))')
465       &     iiter, ff, gnorm, tact,  Cml     &     iiter, ff, gnorm, tact,
466       &     DNRM2( nn, xx, 1 ), tact*DNRM2( nn, dd, 1 )  Cml     &     DNRM2( nn, xx, 1 ), tact*DNRM2( nn, dd, 1 )
467    
468  c-----------------------------------------  c-----------------------------------------
469  c check output mode of ifail  c check output mode of ifail
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22