/[MITgcm]/MITgcm/verification/OpenAD/code_ad_singlelayer/cost_test.F
ViewVC logotype

Diff of /MITgcm/verification/OpenAD/code_ad_singlelayer/cost_test.F

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

revision 1.1 by heimbach, Thu May 10 16:29:15 2007 UTC revision 1.2 by heimbach, Tue Aug 14 21:02:18 2007 UTC
# Line 70  c Line 70  c
70       &           *( uVel(i,j,k,bi,bj) )       &           *( uVel(i,j,k,bi,bj) )
71       &           *( uVel(i,j,k,bi,bj) )       &           *( uVel(i,j,k,bi,bj) )
72  cph(  cph(
73                 print *, 'ph-cost: objf_test ',                 print *, 'ph-cost: objf_test ', ig, jg,
74       &              objf_test(bi,bj)       &              objf_test(bi,bj)
75  cph)  cph)
76  c  c
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22