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

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

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

revision 1.2 by heimbach, Sun Mar 24 02:14:21 2002 UTC revision 1.3 by mlosch, Wed Sep 25 19:36:50 2002 UTC
# Line 49  C      parameter ( kmaxdepth = 14 ) Line 49  C      parameter ( kmaxdepth = 14 )
49  C------------------------------------------------------  C------------------------------------------------------
50  C     Accumulate meridionally integrated transports  C     Accumulate meridionally integrated transports
51  C     Note bar(V)*bar(T) not bar(VT)  C     Note bar(V)*bar(T) not bar(VT)
52  C     Attention pYFaceA [m^2*gravity*rhonil]  C     Attention pYFaceA [m^2*gravity*rhoConst]
53  C------------------------------------------------------  C------------------------------------------------------
54    
55        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
# Line 120  c Line 120  c
120          end do          end do
121    
122          objf_atl(bi,bj) =          objf_atl(bi,bj) =
123       &   sum*HeatCapacity_Cp*rhonil/petawatt       &   sum*HeatCapacity_Cp*rhoConst/petawatt
124    
125  c--   end of bi,bj loop  c--   end of bi,bj loop
126         end do         end do
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22