/[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.3 by heimbach, Tue Nov 20 21:06:48 2001 UTC revision 1.4 by heimbach, Sun Mar 24 02:14:21 2002 UTC
# Line 42  C     == Local variables Line 42  C     == Local variables
42        itlo = mybxlo(mythid)        itlo = mybxlo(mythid)
43        ithi = mybxhi(mythid)        ithi = mybxhi(mythid)
44    
45        iLocOut =  6        iLocOut =  80
46        jLocOut =  35        jLocOut =  30
47        kLocOut =  1        kLocOut =  1
48    
49  ce    some reference temperature  ce    some reference temperature
# Line 64  C--   Calculate cost function on tile of Line 64  C--   Calculate cost function on tile of
64                 write(*,'(a,3(x,i4),a,4(x,i4))')                 write(*,'(a,3(x,i4),a,4(x,i4))')
65       &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj       &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
66                 objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)                 objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
67    cph(
68                   print *, 'ph-cost ', ig, jg, kLocOut,
69         &              theta(i,j,kLocOut,bi,bj)
70    cph)
71              endif              endif
72    
73              end do              end do
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22