/[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.1 by dgoldberg, Thu Sep 27 20:29:57 2012 UTC revision 1.2 by heimbach, Fri Sep 28 02:55:40 2012 UTC
# Line 68  C--   Calculate cost function on tile of Line 68  C--   Calculate cost function on tile of
68              do i=1,sNx              do i=1,sNx
69    
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
# Line 81  C--   Calculate cost function on tile of Line 81  C--   Calculate cost function on tile of
81    
82        RETURN        RETURN
83        END        END
                                             
84                                              
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22