Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by cnh, Tue Aug 18 16:32:41 1998 UTC | revision 1.8 by cnh, Sat Aug 22 17:51:07 1998 UTC | |
---|---|---|
# | Line 87 C-- Calculate vertical "volume transpo | Line 87 C-- Calculate vertical "volume transpo |
87 | C-- tracer cell face *above* this level. | C-- tracer cell face *above* this level. |
88 | DO j=jMin,jMax | DO j=jMin,jMax |
89 | DO i=iMin,iMax | DO i=iMin,iMax |
90 | rTrans(i,j) = uTrans(i,j)*recip_rkFac-uTrans(i+1,j)*_recip_rkFac | rTrans(i,j) = uTrans(i,j)*recip_rkFac-uTrans(i+1,j)*recip_rkFac |
91 | & +vTrans(i,j)*_recip_rkFac-vTrans(i,j+1)*_recip_rkFac | & +vTrans(i,j)*recip_rkFac-vTrans(i,j+1)*recip_rkFac |
92 | & +rTrans(i,j) | & +rTrans(i,j) |
93 | ENDDO | ENDDO |
94 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |