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 |
|
|
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 |
|
|