--- MITgcm/verification/halfpipe_streamice/code_ad/cost_test.F 2013/06/24 21:33:19 1.1 +++ MITgcm/verification/halfpipe_streamice/code_ad/cost_test.F 2015/02/19 16:52:03 1.2 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/halfpipe_streamice/code_ad/cost_test.F,v 1.1 2013/06/24 21:33:19 dgoldberg Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/verification/halfpipe_streamice/code_ad/cost_test.F,v 1.2 2015/02/19 16:52:03 heimbach Exp $ C $Name: $ #include "STREAMICE_OPTIONS.h" @@ -26,7 +26,6 @@ #endif #ifdef ALLOW_COST #include "cost.h" -#include "COST_OPTIONS.h" #endif @@ -85,7 +84,8 @@ if (streamice_hmask(i,j,bi,bj).eq.1.0) then objf_test (bi,bj) = objf_test (bi,bj) + - & 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+ + & h_streamice(i,j,bi,bj)**2 endif