/[MITgcm]/MITgcm/pkg/streamice/streamice_vel_solve.F
ViewVC logotype

Diff of /MITgcm/pkg/streamice/streamice_vel_solve.F

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

revision 1.9 by jmc, Tue Sep 9 23:09:21 2014 UTC revision 1.10 by dgoldberg, Mon Feb 16 16:46:45 2015 UTC
# Line 25  C     === Global variables === Line 25  C     === Global variables ===
25  #include "PARAMS.h"  #include "PARAMS.h"
26  #include "STREAMICE.h"  #include "STREAMICE.h"
27  #include "STREAMICE_CG.h"  #include "STREAMICE_CG.h"
28  !#ifdef ALLOW_PETSC  
 !#include "finclude/petsc.h"  
 !#endif  
29    
30  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
31  # include "tamc.h"  # include "tamc.h"
# Line 58  C     LOCAL VARIABLES Line 56  C     LOCAL VARIABLES
56        _RL max_vel, tempu, tempv, err_lastchange, cgtol        _RL max_vel, tempu, tempv, err_lastchange, cgtol
57        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
58        LOGICAL CONVERGED        LOGICAL CONVERGED
59  #ifdef ALLOW_PETSC  
 !      myThidTemp = myThid  
 !      call streamice_initialize_petsc (myThidTemp)  
 #endif  
60  !       _RL taudx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  !       _RL taudx (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
61  !       _RL taudy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  !       _RL taudy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
62    
# Line 323  C       but after convergence loop does Line 318  C       but after convergence loop does
318         ENDIF ! (err_max .GT. streamice_nonlin_tol * err_init)         ENDIF ! (err_max .GT. streamice_nonlin_tol * err_init)
319        ENDDO        ENDDO
320    
321  #ifdef ALLOW_PETSC  
 !      call streamice_finalize_petsc (myThidTemp)  
 !      call streamice_finalize_petsc (myThid)  
 #endif  
322    
323  C END NL ITER. LOOP  C END NL ITER. LOOP
324  C-------------------------------------------------------------------  C-------------------------------------------------------------------
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22