/[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.5 by mlosch, Mon Jan 6 14:54:25 2014 UTC revision 1.6 by dgoldberg, Wed Mar 26 17:46:48 2014 UTC
# Line 343  C       but after convergence loop does Line 343  C       but after convergence loop does
343       I    V_streamice,       I    V_streamice,
344       I    0, sNx+1, 0, sNy+1 )       I    0, sNx+1, 0, sNy+1 )
345    
346        if (iter .eq. streamice_max_nl_iter) then  !      if (iter .eq. streamice_max_nl_iter) then
347        CALL WRITE_FLD_XY_RL("u_bound_cont_A","",ubd_SI,0,myThid)  !      CALL WRITE_FLD_XY_RL("u_bound_cont_A","",ubd_SI,0,myThid)
348        CALL WRITE_FLD_XY_RL("v_bound_cont_A","",vbd_SI,0,myThid)  !      CALL WRITE_FLD_XY_RL("v_bound_cont_A","",vbd_SI,0,myThid)
349        CALL WRITE_FLD_XY_RL("u_bound_cont_B","",Au_SI,0,myThid)  !      CALL WRITE_FLD_XY_RL("u_bound_cont_B","",Au_SI,0,myThid)
350        CALL WRITE_FLD_XY_RL("v_bound_cont_B","",Av_SI,0,myThid)  !      CALL WRITE_FLD_XY_RL("v_bound_cont_B","",Av_SI,0,myThid)
351        endif  !      endif
352    
353  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
354  !$TAF STORE U_streamice = comlev1_stream_nl, key=ikey_nl  !$TAF STORE U_streamice = comlev1_stream_nl, key=ikey_nl
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22