Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by jmc, Sat Jun 26 01:15:30 2004 UTC | revision 1.6 by jmc, Sat Dec 4 00:19:12 2004 UTC | |
---|---|---|
# | Line 178 C F <- [1 - (d_xx+d_yy)^n *deltaT/ | Line 178 C F <- [1 - (d_xx+d_yy)^n *deltaT/ |
178 | DO J=1,sNy | DO J=1,sNy |
179 | DO I=1,sNx | DO I=1,sNx |
180 | field(i,j,k,bi,bj)=field(i,j,k,bi,bj) | field(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
181 | & -tmpFld(i,j,k,bi,bj)*deltaTtracer/Shap_Trtau | & -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau |
182 | ENDDO | ENDDO |
183 | ENDDO | ENDDO |
184 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |