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

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

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

revision 1.1 by dgoldberg, Thu Sep 27 23:37:39 2012 UTC revision 1.2 by heimbach, Fri Sep 28 02:55:40 2012 UTC
# Line 350  C     LOCAL VARIABLES Line 350  C     LOCAL VARIABLES
350  #else  #else
351              neu_val = .5 * gravity *              neu_val = .5 * gravity *
352       &       (streamice_density * H_streamice (i,j,bi,bj) ** 2 -       &       (streamice_density * H_streamice (i,j,bi,bj) ** 2 -
353       &        streamice_density_ocean_avg * R_low(i,j,bi,bj) ** 2       &        streamice_density_ocean_avg * R_low(i,j,bi,bj) ** 2)
354  #endif  #endif
355             ELSE             ELSE
356              neu_val = .5 * gravity *              neu_val = .5 * gravity *
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22