/[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.9 by heimbach, Thu Sep 20 02:04:45 2012 UTC
# Line 75  C     LOCAL VARIABLES Line 75  C     LOCAL VARIABLES
75  !$TAF STORE U_streamice = comlev1, key=ikey_dynamics  !$TAF STORE U_streamice = comlev1, key=ikey_dynamics
76  !$TAF STORE V_streamice = comlev1, key=ikey_dynamics  !$TAF STORE V_streamice = comlev1, key=ikey_dynamics
77  #ifdef STREAMICE_HYBRID_STRESS  #ifdef STREAMICE_HYBRID_STRESS
78  !$TAF STORE streamice_taubx = comlev1_stream_nl, key=ikey_nl  !$TAF STORE streamice_taubx = comlev1, key=ikey_dynamics
79  !$TAF STORE streamice_tauby = comlev1_stream_nl, key=ikey_nl  !$TAF STORE streamice_tauby = comlev1, key=ikey_dynamics
80  !$TAF STORE visc_streamice_full = comlev1_stream_nl, key=ikey_nl  !$TAF STORE visc_streamice_full = comlev1, key=ikey_dynamics
81  #endif  #endif
82  #endif  #endif
83    
# Line 88  C     LOCAL VARIABLES Line 88  C     LOCAL VARIABLES
88  #endif  #endif
89    
90  #ifdef STREAMICE_HYBRID_STRESS  #ifdef STREAMICE_HYBRID_STRESS
91  !$TAF STORE visc_streamice_full = comlev1_stream_nl, key=ikey_nl  !$TAF STORE visc_streamice_full = comlev1, key=ikey_dynamics
92  #endif  #endif
93    
94        _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.9
  ViewVC Help
Powered by ViewVC 1.1.22