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

Diff of /MITgcm_contrib/dgoldberg/streamice/adstreamice_cg_solve.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:52:31 2012 UTC revision 1.2 by dgoldberg, Wed Jul 25 23:11:27 2012 UTC
# Line 105  C     LOCAL VARIABLES Line 105  C     LOCAL VARIABLES
105         ENDDO         ENDDO
106        ENDDO        ENDDO
107    
108    
109    
110        CALL STREAMICE_CG_SOLVE(        CALL STREAMICE_CG_SOLVE(
111       &  U_state,       &  U_state,
112       &  V_state,       &  V_state,
# Line 120  C     LOCAL VARIABLES Line 122  C     LOCAL VARIABLES
122    
123        tmpiter = 0        tmpiter = 0
124    
125          _EXCH_XY_RL( cg_Bu, myThid )
126          _EXCH_XY_RL( cg_Bv, myThid )
127    
128        CALL STREAMICE_CG_SOLVE(        CALL STREAMICE_CG_SOLVE(
129       &  cg_Uin,       &  cg_Uin,
130       &  cg_Vin,       &  cg_Vin,
# Line 133  C     LOCAL VARIABLES Line 138  C     LOCAL VARIABLES
138       &  tmpiter,       &  tmpiter,
139       &  myThid )       &  myThid )
140    
141          _EXCH_XY_RL( cg_Uin, myThid )
142          _EXCH_XY_RL( cg_Vin, myThid )
143          _EXCH_XY_RL( U_state, myThid )
144          _EXCH_XY_RL( V_state, myThid )  
145    
146  !       DO bj = myByLo(myThid), myByHi(myThid)  !       DO bj = myByLo(myThid), myByHi(myThid)
147  !        DO bi = myBxLo(myThid), myBxHi(myThid)  !        DO bi = myBxLo(myThid), myBxHi(myThid)
148  !         DO j=1,sNy  !         DO j=1,sNy
# Line 634  c     if iters has reached max_iters the Line 644  c     if iters has reached max_iters the
644         ENDDO         ENDDO
645        ENDDO        ENDDO
646    
         
647    
648        PRINT *, "DONE WITH MANUAL CG ADJOINT:",tmpiter,"ITERS"        PRINT *, "DONE WITH MANUAL CG ADJOINT:",tmpiter,"ITERS"
649    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22