/[MITgcm]/MITgcm/pkg/ecco/cost_atlantic.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_atlantic.F

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

revision 1.5 by jmc, Tue Oct 9 00:02:49 2007 UTC revision 1.6 by heimbach, Sat Apr 19 18:03:11 2008 UTC
# Line 160  c--     Assign the first value to the ar Line 160  c--     Assign the first value to the ar
160                         tv = tv+p5*(theta(i,j,k,bi,bj)                         tv = tv+p5*(theta(i,j,k,bi,bj)
161       $                     + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj)       $                     + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj)
162       $                     * _dxG(i,j,bi,bj)       $                     * _dxG(i,j,bi,bj)
163       &                     *  drF(k)*_hFacS(i,j,k,bi,bj)       &                     *  drF(k)*maskS(i,j,k,bi,bj)
164       $                     *HeatCapacity_Cp*rhoNil       $                     *HeatCapacity_Cp*rhoNil
165                        endif                        endif
166                  enddo                  enddo
# Line 204  c--     Accumulate the array holding the Line 204  c--     Accumulate the array holding the
204       $                     +p5*(theta(i,j,k,bi,bj)       $                     +p5*(theta(i,j,k,bi,bj)
205       $                     + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj)       $                     + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj)
206       $                     * _dxG(i,j,bi,bj)       $                     * _dxG(i,j,bi,bj)
207       &                     *  drF(k)*_hFacS(i,j,k,bi,bj)       &                     *  drF(k)*maskS(i,j,k,bi,bj)
208       $                     *HeatCapacity_Cp*rhoNil       $                     *HeatCapacity_Cp*rhoNil
209                     endif                     endif
210                  enddo                  enddo
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22