/[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.6 by dgoldberg, Wed Mar 26 17:46:48 2014 UTC revision 1.7 by dgoldberg, Thu Apr 24 12:01:50 2014 UTC
# Line 63  C     LOCAL VARIABLES Line 63  C     LOCAL VARIABLES
63         CALL STREAMICE_DRIVING_STRESS (myThid)         CALL STREAMICE_DRIVING_STRESS (myThid)
64        ENDIF        ENDIF
65    
66    #ifdef ALLOW_AUTODIFF_TAMC
67    #ifdef STREAMICE_STRESS_BOUNDARY_CONTROL
68    !$TAF STORE taudx_SI = comlev1, key=ikey_dynamics
69    !$TAF STORE taudy_SI = comlev1, key=ikey_dynamics
70    #endif
71    #endif
72    
73    #ifdef STREAMICE_STRESS_BOUNDARY_CONTROL
74          _EXCH_XY_RL( taudx_SI , myThid )
75          _EXCH_XY_RL( taudy_SI , myThid )
76          CALL STREAMICE_FORCED_BUTTRESS (myThid)
77    #endif
78    
79          
80    
81        cgtol = streamice_cg_tol        cgtol = streamice_cg_tol
82    
83  !       CALL WRITE_FULLARRAY_RL ("taudy_SI",taudy_SI,1,0,0,1,0,myThid)  !       CALL WRITE_FULLARRAY_RL ("taudy_SI",taudy_SI,1,0,0,1,0,myThid)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22