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

Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_vel_solve.F

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

revision 1.8 by dgoldberg, Tue Sep 18 17:06:48 2012 UTC revision 1.10 by dgoldberg, Thu Sep 27 20:29:01 2012 UTC
# Line 49  C     LOCAL VARIABLES Line 49  C     LOCAL VARIABLES
49  !       _RL taudx (1-OLx:sNx+OLx,1-OLy:sNy+Oly,nSx,nSy)  !       _RL taudx (1-OLx:sNx+OLx,1-OLy:sNy+Oly,nSx,nSy)
50  !       _RL taudy (1-OLx:sNx+OLx,1-OLy:sNy+Oly,nSx,nSy)  !       _RL taudy (1-OLx:sNx+OLx,1-OLy:sNy+Oly,nSx,nSy)
51    
52        CALL STREAMICE_DRIVING_STRESS (myThid)        IF (STREAMICE_ppm_driving_stress) THEN
53           CALL STREAMICE_DRIVING_STRESS_PPM (myThid)
54          ELSE
55           CALL STREAMICE_DRIVING_STRESS (myThid)
56          ENDIF
57    
58        cgtol = streamice_cg_tol        cgtol = streamice_cg_tol
59    
# Line 75  C     LOCAL VARIABLES Line 79  C     LOCAL VARIABLES
79  !$TAF STORE U_streamice = comlev1, key=ikey_dynamics  !$TAF STORE U_streamice = comlev1, key=ikey_dynamics
80  !$TAF STORE V_streamice = comlev1, key=ikey_dynamics  !$TAF STORE V_streamice = comlev1, key=ikey_dynamics
81  #ifdef STREAMICE_HYBRID_STRESS  #ifdef STREAMICE_HYBRID_STRESS
82  !$TAF STORE streamice_taubx = comlev1_stream_nl, key=ikey_nl  !$TAF STORE streamice_taubx = comlev1, key=ikey_dynamics
83  !$TAF STORE streamice_tauby = comlev1_stream_nl, key=ikey_nl  !$TAF STORE streamice_tauby = comlev1, key=ikey_dynamics
84  !$TAF STORE visc_streamice_full = comlev1_stream_nl, key=ikey_nl  !$TAF STORE visc_streamice_full = comlev1, key=ikey_dynamics
85  #endif  #endif
86  #endif  #endif
87    
# Line 88  C     LOCAL VARIABLES Line 92  C     LOCAL VARIABLES
92  #endif  #endif
93    
94  #ifdef STREAMICE_HYBRID_STRESS  #ifdef STREAMICE_HYBRID_STRESS
95  !$TAF STORE visc_streamice_full = comlev1_stream_nl, key=ikey_nl  !$TAF STORE visc_streamice_full = comlev1, key=ikey_dynamics
96  #endif  #endif
97    
98        _EXCH_XY_RL ( tau_beta_eff_streamice , myThid )        _EXCH_XY_RL ( tau_beta_eff_streamice , myThid )
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22