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

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

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

revision 1.2 by heimbach, Fri Sep 28 02:55:40 2012 UTC revision 1.3 by heimbach, Fri Sep 28 12:31:31 2012 UTC
# Line 70  C--   Calculate cost function on tile of Line 70  C--   Calculate cost function on tile of
70               cost_func1_streamice (bi,bj) =               cost_func1_streamice (bi,bj) =
71       &       cost_func1_streamice (bi,bj) +       &       cost_func1_streamice (bi,bj) +
72       &       0.5 * (S_obs(i,j,bi,bj)-       &       0.5 * (S_obs(i,j,bi,bj)-
73                       surf_el_streamice(i,j,bi,bj))**2       &              surf_el_streamice(i,j,bi,bj))**2
74    
75              end do              end do
76            end do            end do
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22