/[MITgcm]/MITgcm/tools/OAD_support/ad_template.streamice_vel_phistage.F
ViewVC logotype

Diff of /MITgcm/tools/OAD_support/ad_template.streamice_vel_phistage.F

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

revision 1.3 by dgoldberg, Mon Mar 23 14:08:18 2015 UTC revision 1.4 by dgoldberg, Wed Mar 25 17:35:29 2015 UTC
# Line 160  Line 160 
160    
161            WRITE(MSGBUF,'(A,I5,A,I4,A)') 'streamice linear solve number',            WRITE(MSGBUF,'(A,I5,A,I4,A)') 'streamice linear solve number',
162       +NL_ITER,' ',CG_ITERS,' iterations '       +NL_ITER,' ',CG_ITERS,' iterations '
163            OAD_CTMP0 = 1  !          OAD_CTMP0 = 1
164            CALL print_message(MSGBUF,STANDARDMESSAGEUNIT,'R',OAD_CTMP0)            CALL print_message(MSGBUF,STANDARDMESSAGEUNIT,'R',1)
165    
166  !---- conv check  !---- conv check
167                        
# Line 484  Line 484 
484    
485            WRITE(MSGBUF,'(A,I5)') 'streamice adjoint solve number'            WRITE(MSGBUF,'(A,I5)') 'streamice adjoint solve number'
486       +,ADJ_ITER       +,ADJ_ITER
487            OAD_CTMP0 = 1  !          OAD_CTMP0 = 1
488            CALL print_message(MSGBUF,STANDARDMESSAGEUNIT,'R',OAD_CTMP0)            CALL print_message(MSGBUF,STANDARDMESSAGEUNIT,'R',1)
489    
490  !---- end write out number of cg iters  !---- end write out number of cg iters
491    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22