/[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.6 by heimbach, Fri Oct 10 22:43:28 2003 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        if ( useCubedSphereExchange) then
46        jLocOut =  35           iLocOut =  7
47        kLocOut =  1           jLocOut =  28
48             kLocOut =  1
49          else
50             iLocOut =  80
51             jLocOut =  30
52             kLocOut =  1
53          endif
54    
55  ce    some reference temperature  ce    some reference temperature
56        thetaRef = 24.0D0        thetaRef = 24.0D0
# Line 64  C--   Calculate cost function on tile of Line 70  C--   Calculate cost function on tile of
70                 write(*,'(a,3(x,i4),a,4(x,i4))')                 write(*,'(a,3(x,i4),a,4(x,i4))')
71       &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj       &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
72                 objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)                 objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
73    cph(
74                   print *, 'ph-cost ', ig, jg, kLocOut,
75         &              theta(i,j,kLocOut,bi,bj)
76    cph)
77              endif              endif
78    
79              end do              end do
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22