/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_del2.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_del2.F

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

revision 1.4 by jmc, Tue Dec 5 05:26:46 2006 UTC revision 1.5 by jmc, Tue Dec 5 22:20:06 2006 UTC
# Line 55  C     Difference of zonal fluxes & merid Line 55  C     Difference of zonal fluxes & merid
55  C      and divide by grid-cell volume  C      and divide by grid-cell volume
56        DO j=1-Oly,sNy+Oly-1        DO j=1-Oly,sNy+Oly-1
57         DO i=1-Olx,sNx+Olx-1         DO i=1-Olx,sNx+Olx-1
58          del2(i,j)=recip_rA(i,j,bi,bj)*recip_deepFacC(k)          del2(i,j)=recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
59       &           *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)       &           *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
60       &           *( ( dTdx(i+1,j)-dTdx(i,j) )       &           *( ( dTdx(i+1,j)-dTdx(i,j) )
61       &             +( dTdy(i,j+1)-dTdy(i,j) )       &             +( dTdy(i,j+1)-dTdy(i,j) )
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22