/[MITgcm]/MITgcm/verification/halfpipe_streamice/code_ad/cost_test.F
ViewVC logotype

Diff of /MITgcm/verification/halfpipe_streamice/code_ad/cost_test.F

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

revision 1.1 by dgoldberg, Mon Jun 24 21:33:19 2013 UTC revision 1.2 by heimbach, Thu Feb 19 16:52:03 2015 UTC
# Line 26  C     == Global variables === Line 26  C     == Global variables ===
26  #endif  #endif
27  #ifdef ALLOW_COST  #ifdef ALLOW_COST
28  #include "cost.h"  #include "cost.h"
 #include "COST_OPTIONS.h"  
29  #endif  #endif
30    
31    
# Line 85  C--   Calculate cost function on tile of Line 84  C--   Calculate cost function on tile of
84    
85              if (streamice_hmask(i,j,bi,bj).eq.1.0) then              if (streamice_hmask(i,j,bi,bj).eq.1.0) then
86               objf_test (bi,bj) = objf_test (bi,bj) +               objf_test (bi,bj) = objf_test (bi,bj) +
87       &       u_streamice(i,j,bi,bj)**2+v_streamice(i,j,bi,bj)**2       &       u_streamice(i,j,bi,bj)**2+v_streamice(i,j,bi,bj)**2+
88         &       h_streamice(i,j,bi,bj)**2
89              endif              endif
90    
91    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22