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) |
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 |