/[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.11 by dgoldberg, Mon Apr 20 14:22:13 2015 UTC revision 1.12 by dgoldberg, Wed Jul 13 09:32:45 2016 UTC
# Line 123  C     LOCAL VARIABLES Line 123  C     LOCAL VARIABLES
123        _EXCH_XY_RL( tau_beta_eff_streamice , myThid )        _EXCH_XY_RL( tau_beta_eff_streamice , myThid )
124        _EXCH_XY_RL( visc_streamice , myThid )        _EXCH_XY_RL( visc_streamice , myThid )
125    
126    ! to stop ifort complaining
127            err_init = 0. _d 0
128    
129        if (STREAMICE_chkresidconvergence .or.        if (STREAMICE_chkresidconvergence .or.
130       &    (streamice_maxnliter_cpl.eq.0 .and. myIter.eq.0)) then       &    (streamice_maxnliter_cpl.eq.0 .and. myIter.eq.0)) then
131    
132    
133          CALL STREAMICE_GET_VEL_RESID_ERR ( err_init, myThid )          CALL STREAMICE_GET_VEL_RESID_ERR ( err_init, myThid )
134    
135  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22