Parent Directory | Revision Log | Revision Graph | 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) ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |