/[MITgcm]/MITgcm/pkg/cost/cost_test.F
ViewVC logotype

Diff of /MITgcm/pkg/cost/cost_test.F

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

revision 1.1 by heimbach, Sun Mar 25 22:33:54 2001 UTC revision 1.2 by heimbach, Tue Apr 10 22:35:26 2001 UTC
# Line 73  C--   Calculate cost function on tile of Line 73  C--   Calculate cost function on tile of
73              ig = myXGlobalLo-1+(bi-1)*sNx+i              ig = myXGlobalLo-1+(bi-1)*sNx+i
74    
75              if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then              if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then
76  cph               write(0,'(a,3(x,i4),a,4(x,i4))')                 write(*,'(a,3(x,i4),a,4(x,i4))')
77  cph     &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj       &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
78                 objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)                 objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
79              endif              endif
80    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22