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

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

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

revision 1.1 by dgoldberg, Thu Jul 19 18:56:00 2012 UTC revision 1.4 by dgoldberg, Wed Aug 27 19:29:13 2014 UTC
# Line 48  C     LOCAL VARIABLES Line 48  C     LOCAL VARIABLES
48        _RL dot_p1, dot_p2, alpha_k, beta_k, resid, resid_0        _RL dot_p1, dot_p2, alpha_k, beta_k, resid, resid_0
49        _RL dot_p1_tile (nSx,nSy)        _RL dot_p1_tile (nSx,nSy)
50        _RL dot_p2_tile (nSx,nSy)        _RL dot_p2_tile (nSx,nSy)
51          CHARACTER*(MAX_LEN_MBUF) msgBuf
52    
53        iters = streamice_max_cg_iter        iters = streamice_max_cg_iter
54    
# Line 188  c  !!!!!!!!!!!!!!!!!! Line 189  c  !!!!!!!!!!!!!!!!!!
189        
190  c  ! initially, b-grid data is valid up to 3 halo nodes out -- right? (check for MITgcm!!)  c  ! initially, b-grid data is valid up to 3 halo nodes out -- right? (check for MITgcm!!)
191    
192        print *, "BEGINNING MAIN CG LOOP"         WRITE(msgBuf,'(A)') 'BEGINNING MAIN CG LOOP'
193           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
194         &                     SQUEEZE_RIGHT , 1)
195    
196  !       IF(STREAMICE_construct_matrix) CALL STREAMICE_CG_MAKE_A(myThid)  !       IF(STREAMICE_construct_matrix) CALL STREAMICE_CG_MAKE_A(myThid)
197    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22